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The 

Publisher's 
Pen 



by Ross W. Lambert 



I recently came across the hippest, hottest, most hap- 
penin' computer bookstore I've ever seen. It's called The 
Computer Literacy Bookstore, and despite the dorky 
name (sorry Dan!) it has all the Apple II information ever 
printed since the dawn of time. The owner could tell me 
off the top of his head the status of an old, old Apple II 
book for which IVe been searching for years. Although 
they are not totally dedicated to the II (you can get Mac 
stuff there also), the II is definitely where their heart is. 
According to owner Dan Doemberg they have some- 
thing like 60,000 Apple II volumes in stock. 

Now, Fm biased - they are the first folks to sell 8/ J 6 over 
the counter. But I think that says something really 
terrific about them all by itself. I really doubt you'll be 
disappointed if you give them a call. Their number is 
(408) 435-1118. Tell *em Mike Rochip sent you. 



A Bert Kersey Sighting 

Beloved Apple II pioneer Bert Kersey was recently 
sighted buying a six pack (of Coca-Cola) at a 7-11 
outside of Barstow, CA. Rumor has it that he was in the 
company of Paul Lutus. Somebody get a camera and call 
The E^nquirer. 

What's the big deal about Bert Kersey, you ask? Why 
would I put his name on the cover of our April issue? I'll 
tell you why. Go read Guy Kawasaki's The Macintosh 
Way. It is a decent and humorous book. But it is the 
embodiment of the Macintosh (aka "Jobs") Arrogance, 
or Guy writes like he and Steve invented the "Macin- 
tosh Way". 

Sorry, Guy. Bert Kersey invented it. Only it is "The 
Apple II Way". Do you remember the first time you 
opened up a Beagle Bros product? I remember first of all 
that I was impressed with what a great deal it was for the 
money. I also remember that ol' Bert gave us mucho 
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extras and goodies. I also remember laughing a lot. I 
also remember great service and personal responses 
from Bert himself. I have a handwritten note from him 
still in my files. 

Best of all, Bert was doing these things when Guy 



Kawasaki was still having his mother wipe his nose. I 
still can't figure out why Bert's mother was wiping Guy's 
nose, though. 

We here at Ariel are in search of Bert Kersey. We hope 
you are, too. == Ross == 



Sweet 16: A Blast From the Past 



by Matt Neuberg 



(Editor: IjMatt is as successful resurrecting the classical 
(aka 'dead!) languages he teaches as he is resurrecting 
Sweet 16, then it won't be long before Lattn is back in 
vogue. B7W, Matts stationery says "Lingua Optima, 
Lingua Mortua" on it, which I believe means "The best 
language is a dead language".) 

The 8/16 paradox 

Those who have replaced their chip with a 65802, or 
who have bought a GS, pay no attention. This is for the 
faithful few, still trying to live with the paradox of the 
6502 and 65C02 machine: 8-bit processing, but 16-bit 
addressing. If you Ve ever written a machine language 
program of any size, you've faced the inconvenience of 
this paradox. Let's take an example. 

Imagine we are faced with the following task. Suppose 
a textfile has been "packed" as in Apple Pascal: every 
time a run of 3 or more blanks occurs (up to 255), it has 
been replaced by a special character (say, $FF) followed 
by a byte containing the number of blanks. Our job is to 
decode ("unpack") the file, replacing each occurrence of 
"$FF N" with N blanks. Simple? Just wait. 

Let two buffers be allocated in memory, starting at 
addresses FILEPK and FILEUNPK; suppose the packed 
file is already in place, starting at FILEPK, and a variable 
EOFPK points to the address after the last byte of the 
file. All we have to do is run through every byte from 
FILEPK up to EOFPK- 1 . If it isn't $FF, we'U just transfer 
it to the FILEUNPK buffer; if it is $FF, we'll look at the 
following byte and feed that number of blanks to the 
FILEUNPK buffer. We must also know the length of the 
resulting unpacked file when we are done, so we can 
save it. 




Listing 2 shows a typical way to code it. It isn't fancy or 
triclgr; but I don't mind telling you, it drove me crazy 
having to write it, and it isn't terribly easy to read, 
either. 

The trouble is that this routine is all about manipulat- 
ing addresses, and it takes two bytes to name and point 
to an address. See the large number of instructions 
taken up with handling 16-bit (2 -byte) information one 
byte at a time ("lo-byte, hi-b3^e")? I've saved some space 
by relegating some of these operations to subroutines, 
but this doesn't make the program logic any clearer, 
and as I was writing the program, each time I realised 
I would need such a subroutine, I had to go back and 
change everything. And having to do everythtag twice, 
as it were, caused me to make stupid errors while 
coding, some of which I didn't catch until I tested the 
program. (In fact, there is still a bug in the program 
logic: can you find it?) 

In my version, the whole task assembles to more than 
110 bytes. This seems unnecessarily bulky. It might be 
possible to save a hyte here and there, but this would 
require some clever coding, and more hard work. Isn't 
there a better way? 



Enter Wozniak's dream machine 

In the late TO's, when the great Steve Wozniak was 
designing Integer Basic for the Apple II, he encountered 
the 8/16-bit paradox, and devised an ingenious solu- 
tion: Sweet 16. I had seen references to Sweet 16 - for 
example, MerlinPro assembles and disassembles 
Sweetie code - but, like most people who got into micro- 
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computers during the *80's, I had no idea what it was. 
(My situation exactly - Editor) Then one day, quite by 
accident, I found out. 

Sweetie is a 16-bit interpreter: i.e., it is 6502 code 
which simulates an imaginary processor, a processor 
capable of understanding and carrying out instructions 
which operate on 16-bit data. You can install this code 
in your Apple II, and when you have 16-bit operations 
to perform in an assembly-language program, you can 
have Sweet 16 cany them out for you. Wozniak pub- 
lished the code for Sweet 16 in the November 1 977 issue 
of BYTEmagazine. It is the basis for Listing 1 (discussed 
below). 

Note: there are some errors in Woz's original article, so 
be careful if you hunt it up. But these have been 
eliminated in the following discussion. 

As the Woz was quick to point out. Sweet 16 is slow, 
probably 10 times slower than if the same tasks were 
performed by ordinary 6502 code. But once youVe 
bought a computer, time costs you nothing: and be- 
sides, with today's accelerator boards and chips, you 
can make back almost half the extra time. On the other 
hand, the Sweet 16 interpreter is ingeniously written in 
such a way that code written for it is extremely compact: 
this was the chief reason for Wozniak's inventing it. for 
in those days space inside the Apple II was at a 
premium. Moreover, Sweet 16 gives the programmer 
another advantage, which Wozniak did not mention: it 
is extremely easy to code for. There are two reasons for 
this. First, you no longer have to keep track separately 
of each byte of your 16-bit data. Second, whenever you 
perform an indirect load or store through Sweet 16, the 
16-bit pseudo-register which points to that data is 
automatically incremented or decremented, making it 
very easy to operate on blocks of data, as in our example 
task. 



The Sweetie architecture 

Sweet 16 operates using 16 16-bit pseudo-registers. 
These occupy the space in the 0-page from $00 to $1F, 
and are designated R0-R15. 

Some of these registers are special. The first register, 
RO, is the "accumulator". The last, R15, is used as the 
"program counter", telling the interpreter where to go to 
fetch an instruction from your program - either the next 
consecutive instruction, or the instruction to jump to 



after a branch. R14 is a status register", used to point 
to the register in which the result of the last operation 
is stored, so that that result can be tested and, depend- 
ing on its value, a branch can be performed. R14 also 
holds the **carry" bit, used for similar purposes. R13 is 
used by each CPR (compare) operation. R12 is used as 
a "stack pointer" when your Sweet 16 code calls or 
returns from a subroutine (Sweet 16 does not use the 
Page 1 stack), which means that if you use any subrou- 
tines in your Sweet 16 code, you must have initialized 
R12 first, and you must not alter it during a subroutine. 

Rl-Rll are the registers free for your use, and will 
usually prove more than sufficient. There are no X- or 
Y-registers: but you won't need them, because indirect 
addressing is done automatically for you, and because, 
as mentioned above. Sweet 16 itself always performs an 
increment or decrement of the register employed for 
indirect addressing. 



The Sweetie instruction set: register ops 

In these descriptions, the shorthand "Rn" is used to 
designate a particular 16-bit register (usually Rl-11). 
When assembling with MerlinPro, the **R" may be omit- 
ted. 

Eight instructions operate directly with the various 
registers and the "accumulator". Don't forget that 
these are 16-bit registers holding 16-bit values! 

SET Rn^ const sets Rn to the value designated by 
const. With MerltnPro's assembler, this may be a 
previously EQUated label, a program line label, or an 
immediate value. The **#" symbol should not be em- 
ployed, but if an immediate value is given, the "$" 
symbol may be. Remember, if you SETT a register using 
a program line label, the resulting value will be the 
address of the line in memory, not whatever data 
appears in that line. (The comma is not required by 
MerlinPro; a space may be used instead, or nothing at 

all- e.g., SET R3LABEL). 

LD Rn loads the "accumulator" with the 16-bit value in 
Rn 

ST Rn stores the 16-bitvalue in the "accumulator" into 
Rn. 

INR Rn increments Rn 

DCR Rn decrements Rn. Rn can be the "accumulator" 
(RO). 



ADD Rn adds the value in Rn to the value in the 
"accumulator", and leaves the result in the -accumula- 
tor". 

SUB Rn subtracts the value in Rn from the value in the 
"accumulator", and leaves the result in the "accumula- 
tor". There is no need to clear or set the "carry" before 
these operations; the •'carry" is set for you after these 
operations, however, analogously to 8-bit ADC and SBC 
operations. 

Seven operations employ indirect addressing: that is. 
they fetch or set a value in memory whose address is 
named by the contents of Rn, not the value of Rn itself. 
These ops also affect the contents of Rn, either incre- 
menting or decrementing them, either before or after 
the operations, as described. The "@" symbol, denoting 
indirect addressing, is required for assembly by Merlin- 
Pro. 

LD @Rn loads the "accumulator" with the 8-bit byte in 
the memory address named by Rn (the high 8 bits of the 
"accumulator" are Just zeroed). 

ST @Rn stores the low 8 bits of the "accumulator" into 
the memory address named by Rn. 

LDD gRn loads the "accumulator" with the 16-bit word 
residing in memory, in the usual lo-hi order, at the 
address named by Rn. 

STD gRn stores all 16 bits of the "accumulator" into 
memory, in the usual lo-hi order, starting at the address 
named by Rn. After each of these four operations, Rn is 
incremented - once after LD and ST, twice after ldd and 
STD, so that Rn now points to the next 8-bit or 16-bit 
piece of data in memory. 

Note: be careful! These opcodes are confusingly named. 
The direct ops, ld Rn and ST Rn, deal with 16-bit 
words. Theanalogouslynamedindirect ops, ld @Rnand 
ST gRn, deal with bytes. 

POP §Rn loads the "accumulator" with the single byte in 
the memory address named by Rn, but only after having 
decremented Rn once (the high 8 bits of the "accumula- 
tor" are Just zeroed). 

Similarly, POPD @Rn loads the "accumulator" with the 
16-bit word residing, in the usual lo-hi order, starting 
at the memory address named by Rn, but only after 
having decremented Rn twice. 



STP 8Rn stores the low 8 bits of the "accumulator" into 
the memory location named by Rn, but only after having 
decremented Rn once. 

The Sweetie instruction set: branch ops 

We come now to branch instructions, that is, instruc- 
tions dealing with the path that the program is to follow. 
Exactly as with 6502 branching. Sweet 16 branches are 
limited to a distance of backward 128 bytes or forward 
127 bytes. 

Three instructions perform an unconditional branch. 

BR LABEL branches to the address named by label. 
This is the closest thing Sweet 16 has to a jmp instruc- 
tion, but the limitation to Jumping -128 to +127 bsrtes, 
but this is not usually a problem, because Sweet 1 6 code 
is so compact. 

BS LABELbranches to the address named by label, but 
remembers the point from which the branch was made. 
A subsequently encountered command RS branches 
back to the instruction following the BS command. 
(Editor: There's a joke in there somewhere...) These are 
thus the equivalents of the 6502 JSR and rts com- 
mands, used for calling and terminating subroutines, 
and, as with them, subroutines may be nested. Note, 
however, that it is up to the user to set R12 beforehand 
with the lowest (that's lowest!) address of a safe block of 
memory to be used to save the addresses from which bs 
commands are executed. 

Eight instructions branch if certain conditions are met. 
These conditions have to do either with the value of the 
"carry" or with the value of the last register (including 
the accumulator") which was directly referred to (called 
the ''last result"). Thus, for the direct commands listed 
above, the value involved is that of the register Rn on or 
from which the operation was performed; for the indi- 
rect commands, and for add and sub, the value involved 
is just that of the "accumulator". 

However, such branches alone would provide no way to 
perform a comparison test between the "accumulator" 
and some other value. To take care of this, a command 
CPR Rn is implemented. This command actually sub- 
tracts the value in Rn from the value in the "accumula- 
tor", and it is the result of this subtraction (stored in 
Rl 3) which is tested in a subsequent conditional branch 
command. The operation is thus analogous to the 6502 
CMP instruction. 



BZ LABEL branches to label only if "last result" is 0. 

BNZ LABEL branches to label only if the "last result" 
is not 0. These are thus the equivalents, whether or not 
they follow a CPR command, of the 6502 beq and bne 
commands. 

BP LABEL branches to label only if the "last result" is 
positive 

BM LABEL branches to label only if the "last result" is 
negative . A 16-bit word is considered positive if and only 
if the hi-bit of its hi-byte is not set. These commands can 
thus be used, whether or not they follow a CPR com- 
mand, like the 6502 bpl and bmi commands. 

BC LABEL branches to label only if the "cany" is set 

BNC LABEL branches to label only if the "carry" is clear. 
These commands may be used after an add or sub 
command); note also that after a CPR command, they 
are the equivalents of the 6502 bge/bcs and blt/bcc 
commands, respectively. (Note that you must use these 
commands immediately after the command which sets 
or clears the "carry", because all other ops clear the 
"cany".) 

BMI label branches to label only if the "last result" 
is-1 ($FFFF) 

BNMl LABEL branches to LABEL only if the "last result" 
is not -1. 



Entering and leaving Sweet 16 mode 

During a 6502 program, to signify that the following 
code is Sweet 16 code and is to be interpreted by the 
Sweet 16 interpreter, execute a jsr SWl 6 , where swi 6 is 
the address of the Sweet 16 interpreter. The interpreter 
will then read and execute all subsequent code, until it 
encounters the command rtn; at this point, control will 
be tumed over to the 6502, starting with the byte after 
the RTN. 

For debugging purposes. Sweet 16 also recognises a bk 
command; this simply executes a 6502 brk, sending 
you to the monitor. After examining or modifying 
memory, you may resume execution from the monitor 
at the instruction after the break by modifying R15 
($1E/1F) to the memory address at which the bk was 
encountered and calling for a GO from the address 



called INTERP in Listing 1 (e.g., type "31 9G"). (You have 
to know in advance what this address it; the monitor will 
not display it for you, but will display the address of 
Sweetl6BK subroutine instead.) To avoid having the bk 
occur on a subsequent pass, you may substitute for it 
a byte Od, which is interpreted by Sweetl6 as a nul (= 

NOP) . 



The paradox resolved 

As an illustration of these opcodes, and of the value of 
Sweet 16, examine Listing 3. It performs exactly the 
same task as Listing 2! 

See the improvements? First, Listing 3 occupies about 
half the code space of Listing 2. This is because all the 
register operations except for set are only 1 byte long, 
thanks to Wozniak's ingenious coding method (see 
Table 1). Of course, we also have to occupy some 
memory with the Sweet 16 interpreter; but clearly a 
program involving several Sweet 16 routines would soon 
realise significant savings in space, and it should not be 
hard to find a place to stash the Sweet 16 interpreter 
where we will not find its presence troublesome. 

Second, and more important. Listing 3 was easy to 
write. In fact, I wrote it from start to finish, without 
errors, without ever having to go back to an earlier step 
and modify it! 

So Sweet 16 code is easy to write, easy to debug, and 
easy to read; it's compact, and it's incredibly powerful 
whenever you have to deal with 16-bit information. 



Feel Sweetie again 

Listing 1 contains my version of the Sweet 16 inter- 
preter. It is based on Steve Wozniak's original published 
version, and for that reason alone is worth reading even 
if you don't intend to implement Sweet 16 for yourself, 
because Wozniak's code is nothing short of brilliant. 
But my version also contains some minor improve- 
ments over Wozniak's original. It is better labelled and 
commented than his version was. It saves the contents 
of zero-page addresses to be used as Sweet 16's "regis- 
ters" on entry, and restores them on exit, so that you can 
use it in combination with Applesoft programs and 
BASIC.SYSTEM. It also includes a self-relocator, so that 
half the code can be hidden away in Page 3; of normal 
RAM, only Page 8 is ultimately occupied. 



May, mm 



To use Sweet 1 6, first type it in and assemble it, and save 
it as, say, SWEET16. When you want it in place in 
memory, brun it; this will cause the relocator to put part 
of the code into Page 3, the rest remaining in Page 8, and 
the program will then rts toyou. Now you can load and 
run assembly-language programs using Sweetie code; 

any time your program does a JSR SW16 (here, $300), 
the code that follows will be interpreted by Sweet 16. 

A number of modifications are possible. If you don't 
want to use Page 3, Just omit the self-relocator and 
reassemble; in that case, the interpreter will reside in 
Pages 8 cind 9, and calls to it will have to be made to 
$900. (You will then want to bload sweet 16 to put it 
into memory, not brun it.) If you don't want Pages 8 and 
9 occupied, you can modify and reassemble the code to 
be located anjrwhere you like: the only important thing 
is that all of the code from the label routinz to the label 
RTN must be on a single page; otherwise the calculation 
of subroutine addresses, and the branching to those 
addresses, won't work. 

You're not even confined to using $00- IF as your 
Sweetie registers: any series of 32 consecutive 0-page 
locations will work (in fact, $FO-FF and $00-0F would 
work, since direct indexed zero-page addressing auto- 
matically wraps around from $FF to $00). Just redefine 
RO, and STAT and PC relatively to it. If you know you've 
got 32 consecutive 0-page locations absolutely free, you 
could also omit the saving and restoring operations, to 
obtain some extra microseconds; if you don't care about 
losing the contents of the e502 registers across a 
Sweetie call, you could omit the calls to the monitor 
SAVE and RESTORE routines as well. 

Have fun with Sweetie: it just might be the fountain of 
youth that your assembly-language programs need! 



Matt Neuburg, PhD 
13150 Wenonah SE #121 
Albuquerque. NM 87123 
(505) 292-7811 



Table 1 - Sweet 16 Opcodes 

All the branch opcodes, including BS, are of the form On, 
where n determines which operation is to be performed, 
and must all be followed by a second byte giving the 
effective address to branch to, precisely as with 6502 



code: the effective address is calculated as the distance, 
in bytes, from the byte following the byte containing the 
effective address . [Thus , 1 fd would branch to the byte 
before the branch command; 01 fe would loop 
indefinitely; 01 00 would continue as if nothing had 
happened; 01 01 would skip the byte following the 
branch command.] The operations RS, rtn, bk. and 
NUL are also of the form On; they are single-byte codes. 
The register operations, except for set. are also all 
single-byte codes, where the first (hi) hex digit signifies 
the operation, the second (lo) hex digit designates the 
register to be operated on (15 register operations, le 
registers). The set operation requires 3 bytes, one for 
the operation and the register, two for the value to which 
the register is to be set, in lo-hi order. 
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SET Rn 


00 


RTN 


2n 


LD Rn 


01 


BR 


3n 


ST Rn 


02 


BNC 


4n 


LD @Rn 


03 


BC 


5n 


ST @Rn 


04 


BP 


6n 


LDD @Rn 


05 


BM 


In 


STD @Rn 


06 


BZ 


8n 


POP @Rn 


07 


BNZ 


9n 


STP @Rn 


08 


BMl 


An 


ADD Rn 


09 


BNMl 


Bn 


SUB Rn 


OA 


BK 


Cn 


POPD @Rn 


OB 


RS 


Dn 


CPR Rn 


OC 


BS 


En 


INR Rn 


OD 


NUL 


Fn 


DCR Rn 


[OE 


and 



Listing 1 

2 * * 

3 * SWEET16 * 

4 * * 

5 * based on the original by Steve Wozniak * 

6 * new dissassembly w/ clarified code & self- * 

7 * relocator, by Matt Neuburg, PhD 3/9/89 * 

8 * * 
9 



10 

11 RO EQU $00 ;and $01, ^^accumulator" 

12 STAT EQU $1D /"status" regstr: contains 

13 ;indx to place last result 

14 ;but since this is Rn*2, bit 

15 ; is free: so it holds ^^carry" 

16 PC EQU $1E ;and $1F, '^program counter" 

17 SAVE EQU $FF4A /monitor rtn, save regs 



18 RESTORE EQU $FF3F /monitor rtn, restore regs 



iPsig(B i) 



1 Q 








7d 
/ *% 


T HA 


(RO,X) ;do hi -byte 


£. \J 




ORG 


$800 


7S 
/ *j 


STA 


RO+1 












7fi 
# o 


lTMP 


INR ;and do another inc Rn 






JMP 


RELOCATE; Note: OMIT if don't want 


1 1 














; self-relocation into Page 


/ O ox U(5 




ST0 ; 


do lobyte, inc Rn, STAT 


o 








T O 


LiuPi. 


RO+1 












ou 


QTIV 
O X A 


/RO X\ 

\ts\j f a; 




25 


* 






81 


JMP 


INR 


•^*nH e\r% anot'Vi^'r' "i Pn 


9 ^ 


* subrtn 


for Sweet 16 ops: LABELS are op names 


ft 9 








9 "7 


★ 








T nv 


















poplo 


• Artrl ncs do 1 o— hvt"© 


9 Q 


ROUTINZ 


EQU 


* • CCWiQ ITOOM H1?D1? TH PTM MTTQT WK* 


Q c DHPn 


TQP 


DCR 


• dec Rn 


o u 






•AT.T. ON A <5TKrnT.P PAOF 


O \> 




(RO,X) 


; get hi~byte from mem 


31 








87 


TAY 




• sav© it in Y 


"^9 








ft ft n<^r%1 




DCR 


;dec Rn 




* register ops 






XjL/A 


(RO,X) 


;get (lo-)byte from mem 


O *i 


* X is 


index 


\^\J XVll f XU S £ 11 f 


QH 
^ w 


O X A 


RO 


; lo-byte into ^^acc" 




★ — 






y X 


O X X 


RO+1 


; hi -byte into ^^acc" 


36 








Q9 «*^y^»nHrro 


LDY 


#0 


;R0 holds last result.. 


J / 


SET 


JMP 


SETZ • ^no room here^ 


Q "5 


QTV 
Oil 


STAT 


; so say so 












PTC 
r\X O 






Ol* 


LD 


LDA 


RO , X ; move Rn to RO 


Q ^ 
y D 








4U 


BK 


EQU 


*-l ;i.e., 00—BRK (cute, eh?) 




TOD 


DCR 


; decrement Rn 






STA 


RO 


y 1 


T nik 


RO 


; stick lo-byte of **ac 


49 




LDA 


R0+1,X 


Qft 


QT21 
O X A 


(RO.X) 


; in memory via Rn 


*i O 




STA 


RO+1 


QQ 


.TMP 


stzandgo ;STAT := 


4 4 




RTS 


/STAT points to Rn already 










45 








101 SUB 

X X O \J LJ 


LDY 


#0 


;if SUB, result to RO 


46 


ST 


LDA 


RO ;inove RO to Rn 


1 09 CPP 


SEC 




;if CPR, Y«13*2 on ent 


47 




STA 


RO,X 


103 


LDA 


RO 


;do lo-byte subtracti 


48 




LDA 


RO+1 


104 


SBC 


RO,X 




49 




STA 


R0+1,X 


105 


STA 


RO, Y 


;put result in RO or R 


50 




RTS 


;STAT pts to Rn already 


106 


LDA 


RO+1 


;do hi-byte subtracti 


51 








107 


SBC 


R0+1,X 




52 


DCR 


LDA 


RO,X /decrement Rn 




STA 


R0+1,Y 


;put result in RO or R 


53 




BNE 


: no 


X V 7 


TYA 

X X A 




; place of result * 2 


54 




DEC 


RO+l^X 


X X 


ADC 


#0 


; "carry" into bit 


55 


:no 


DEC 


RO,X 


111 

XXX 


STA 


STAT 


;rec both in STAT reg 


56 




RTS 


;STAT points to Rn al— 


119 

X X ^ 


RTS 






ready 






113 








57 








114 ADD 


LDA 


RO 


;do lo-byte addition 


58 


STS 


LDA 


RO ;send lo byte of RO 


115 


ADC 


RO,X 


; DON'T CLC-may be seri 


59 


putinc 


STA 


(RO,X) ; to memory via Rn 


116 


STA 


RO 


/result to RO 


60 




LDY 


#0 


117 


LDA 


RO+1 


;do hi-byte addition 


61 


zerostat 


STY 


STAT ;R0 holds last rslt, say so 


118 


ADC 


R0+1,X 




62 


INK 


INC 


RO,X /increment Rn 


119 


LDY 


#0 


; result is to go into 


63 




BNE 


:no 


120 


BEQ 


finish 


;& let prev rtn finis 


64 




INC 


R0+1,X 


121 








65 


:no 


RTS 


;STAT pts to Rn already if INR 


122 * 








66 








123 * branch ops; 


on entry. 


Y«0,X is 2* num of opcod 


67 


LD@ 


LDA 


(RO,X);get 1 byte from mem via Rn 


124 * acc 


holds 


num of register we are to examin 


68 




STA 


RO ;give it to lo-byte of RO 


125 * 








69 




LDY 


#0 


126 








70 




STY 


RO+1 ; just one byte, zero hi -byte 


127 BS 


LDA 


PC 


; (X=12*2 on entry) 


71 




BEQ 


zerostat; (always) set STAT, inc Rn 


128 


JSR 


putinc 


; use R12 to pt to 


72 








stack 








73 


LDD@ 


JSR 


LD0 ;do lobyte, inc Rn, STAT-0 


129 


LDA 


PC+1 


; put ret addr into m 



130 




JSR 


put in c 


/ incr R12 as we go 


187 




RTS 




131 


BR 


CLC 




/guarantee branch 


188 








132 


BNC 


BCS 


NUL 


/don't bra if carry set 


189 


RS 


LDX 


#24 /12*2, pt to stack thru R 


133 


ad jstpc 


LDA 


(PC) ,Y 


/examine branch addr 


190 




JSR 


DCR /dec stack ptr 


134 




BPL 


:no 


if displacmnt pos, Y:=0 


191 




LDA 


(RO,X) /"pop hi-byte ret ad 


135 




DEY 




if dsplacmnt neg, Y:=-l 


192 




STA 


PC+1 


136 


:no 


ADC 


PC 


/clear carry guaranteed 


193 




JSR 


DCR /dec stack ptr 


137 




STA 


PC 


/lobyte PC+displacement 


194 




LDA 


(RO,X) /pop lo-byte ret ad 


138 




TYA 




/tricky 2 ' s-complement 


195 




STA 


PC 


139 




ADC 


PC+1 


/ addition: 


196 




RTS 


/that's all, PC is rea 


140 




STA 


PC+1 ;hibyte PC+ (0 or -l)+carry 


197 








141 




RTS 


;whew! PC now correct 


198 


RTN 


JMP 


RTNZ / (no room here) 


142 










199 








143 


EC 


BCS 


BR /here's an easy one: 


200 




DS 


\ / fill out the page 


144 


NUL 


RTS 


;no carry, no bra (also NUL) 


201 






/so SW16 will be at start 


145 










of 








146 


* 








202 






/ next page 


147 


* subroutine 


of remaining branch ops 


203 








148 












★ 
















204 








149 










205 


★ 






150 


Idhi 


ASL 




/Rn in acc: double it. 


206 


★ 






151 




TAX 




use rslt as indx to Rn, 


207 








152 




LDA 


R0+1,X 


/& fetch hi-byte of Rn 


208 








153 




RTS 




/& you also clrd carry 


209 




ORG 


$300/ OMIT if you don't want sel 


154 










210 






/ relocation to Page 3 


155 











211 








156 


* and here they are. . . 




212 


★ 






157 


★ 








213 


* ent ry 


to Sweet 16 


158 










214 








159 


BP 


JSR 


Idhi 


/examine hi half of Rn 


215 








160 




BPL 


ad jstpc 


/branch if positive 


216 


SW16 


JSR 


SAVE /preserve registers 


161 




RTS 






217 




LDX 


#31 /preserve 32 0-page valu 


162 










218 


: MOVEONE 


LDA 


RO,X 


163 


BM 


JSR 


Idhi 


/examine hi half of Rn 


219 




STA 


STORAGE, X 


164 




BMI 


ad j stpc 


/branch if negative 


220 




DEX 




165 




RTS 






221 




BPL 


: MOVEONE 


166 










222 








167 


BZ 


JSR 


Idhi 


/pick up hi half of Rn 


223 




PLA 


/initialize ^^program counte 


168 




ORA 


RO,X /will give iff both are 


224 




STA 


PC / from calling address 


169 




BEQ 


ad jstpc 


/branch if so 


225 




PLA 




170 




RTS 






226 




STA 


PC+1 


171 










227 








172 


BNZ 


JSR 


Idhi 


/pick up hi half of Rn 


228 


INTLOOP 


JSR 


INTERP / interpret a command 


173 




ORA 


R0,X /will give iff both are 


229 




JMP 


INTLOOP /again & again & agai 


174 




BNE 


ad jstpc 


/branch if not 


230 








175 




RTS 






231 


INTERP 


LDA 


#>ROUTINZ/get pg-num of subrtn 


176 










232 




PHA 


; & stuff on the stac 


177 


BMl 


JSR 


Idhi 


/pick up hi half of Rn 


233 




INC 


PC / incrmnt program count 


178 




AND 


RO,X /will be FF iff both are FF 


234 




BNE 


:N0 /rdy to examine instru 


179 




EOR 


#$FF /is 


it? CMP might wrck crry 


ctn 








180 




BEQ 


ad jstpc 


/branch if so 


235 




INC 


PC+1 


181 




RTS 






236 


:N0 


LDY 


#0 /rdy for indrct addrss 


182 










ing 








183 


BNMl 


JSR 


Idhi 


/pick up hi half of Rn 


237 




LDA 


(PC),Y /exmne opcde of instru 


184 




AND 


RO,X /will be FF iff both are FF 


ctn 








185 




EOR 


#$FF /is 


it? CMP might wrck crry 


238 




AND 


#$0F /msk 1/2, leaving reg 


186 




BNE 


ad jstpc 


/branch if not 


num 









w^^, mm 



240 




TAX 


;and use it as X-index 


241 




LSR 


; restore it 


242 




EOR 


(PC),Y ;considr only 1/2 opcode 


243 




BEQ 


TOBR ;if 0, branch instr: do it 


244 






; (also BK, RTN, or NUL) 


245 








246 




STX 


STAT ;sav regstr specif iction*2 


247 






;so that if brnch follows. 


248 






;we know what resit to chk 


249 




LSR 


/obtain opcode digit* 2 


250 




LSR 




251 




LSR 




252 




TAY 


; & use it as Y-index, to 


253 




LDA 


OPTBL-2, Y;get lobyt of subr addr 


254 






; (first opcode is 1, 1*2«2) 


255 




PHA 


; stick on the stack... 


256 




RTS 


;and *^jump" to subr 


257 






; (the '"Wozniak waltz") 


258 






;with Y holding 2*num of op 


25 9 






; & X indexing Rn 


260 








261 


TOBR 


INC 


PC /prepare to examn brnch addr 


262 




BNE 


:N0 ; (the subroutines will do 


263 




INC 


PC+1 ; actual examining) 


264 


:N0 


LDA 


BRTBL, X ;get lobyte subr addr 


265 




PHA 


/stick it on the stack 


266 




LDA 


STAT /examine status reg" 


267 




LSR 


;& prepare crry w/ it 


268 




RTS 


/"jump" to subr w/ acc hiding 


269 






/ register-num where 


270 






/ ^^last result" is, 


271 






/ with Y=0, crry rdy, & 


272 






/ X«2* opcode 


273 








274 


★ 






275 


* table 


of lo- 


-bytes of addrs of opcode subrtn 


276 


★ 






277 








278 


OPTBL 


DB 


SET-1 /2 tabls are interwoven 


279 


BRTBL 


DB 


RTN-1 


280 




DB 


LD-1 


281 




DB 


BR-1 


282 




DB 


ST-1 


283 




DB 


BNC-1 


284 




DB 


LD0-1 


285 




DB 


BC-1 


286 




DB 


ST(a-l 


287 




DB 


BP-1 


288 




DB 


LDD@-1 


289 




DB 


BM-1 


290 




DB 


STD@-1 


291 




DB 


BZ-1 


292 




DB 


POP-1 


293 




DB 


BNZ-1 


294 




DB 


STP@-1 


295 




DB 


BMl-1 


296 




DB 


ADD-1 



297 




DB 


BNMl-1 


298 




DB 


SUB-1 


299 




DB 


BK-1 


300 




DB 


POPD-1 


301 




DB 


RS-1 


302 




DB 


CPR-1 


303 




DB 


BS-1 


304 




DB 


INR-1 


305 




DB 


NUL-1 


306 




DB 


DCR-1 


307 




DB 


NUL-1 


308 




DB 


NUL-1 


309 




DB 


NUL-1 


3io 








311 


★ 






312 


* opcode 


subroutines that wouldn't fit into 1 


313 


★ 






314 








315 


* for RTN 




316 








317 


RTNZ 


PLA 


/pull ret addr from JSR INTE 


318 




PLA 


/ & throw it away 


319 




LDA 


PC /put PC in temp storage 


320 




STA 


TEMPPC / before we trash it 


321 




LDA 


PC+1 / by restoring 0-pag 


322 




STA 


TEMPPC+1 


323 




LDX 


#31 /restr 32 0-page val 


324 


rMOVEONE 


LDA 


STORAGE, X 


325 




STA 


RO,X 


326 




DEX 




327 




BPL 


:MOVEONE 


328 




JSR 


RESTORE /restore registers 


329 




JMP 


(TEMPPC) /BYE! bk to 6502-land. 


330 


TEMPPC 


DA 


$0000 /storage 


331 








332 


* for SET: when we arrive, Y=2, X indexes Rn 


333 








334 


SETZ 


LDA 


(PC) ,Y /get hibyte of const (y« 


335 




STA 


R0+1,X /put in hi-byte of reg 


336 




DEY 


/ (y=i) 


337 




LDA 


(PC) ,Y /get lobyte of const 


338 




STA 


RO,X /put in lobyte of re 


339 




TYA 


/ set acc=l 


340 




SEC 


/ cheatsies meed to add 


341 




ADC 


PC /add 2 to program ctr 


342 




STA 


PC / (a 3 -byte instruction 


343 




BCC 


:DONE 


344 




INC 


PC+1 


345 


:DONE 


RTS 


/PC rdy for nxt instr 


346 








347 


STORAGE 


DS 


32 /for saving 32 0-pg val 


348 








349 


RELEND 


NOP 




350 








351 


★ - 






352 


★ 






353 


* relocate second part of file to Page 3 



w^w^ mm 



Listing 2 

2 * * 

3 * EXAMPLE OF A TASK INVOLVING * 

4 * 16-BIT OPERATIONS * 

5 * * 
5 

7 

8 * WARNING: this is NOT a complete program! 

9 * Do NOT try to enter and run it! 
10 

11 FILEPK EQU $2000 ; strt of packed file in mem 

12 FILEUNPK EQU $4000 /where unpked file will go 

13 PKPTR EQU $FC ;and $FD, pointer #1 

14 UNPKPTR EQU $FE ;and $FF, pointer #2 
15 

16 ORG $8000 

17 

18 * 

19 * First, we've got to put into 0-page memory 

20 * the file addresses, for indirect addressing 

21 * 

22 

23 UNPACK LDA #<FILEPK ;lo-byte... 

24 STA PKPTR 

25 LDA #>FILEPK ; . . .hi-byte 

26 STA PKPTR+1 

27 LDA #<FILEUNPK ;lo-byte... 

28 STA UNPKPTR 

29 LDA #>FILEUNPK ;.. .hi-byte 

30 STA UNPKPTR+1 
31 

32 * 

33 * Set Y=0, for indirect addressing 

34 * 

35 

36 LDY #0 

37 

38 * 

39 * Run through FILEPK, looking for DLE«$FF 

40 * 

41 

42 ADVANCE LDA (PKPTR) , Y ; look at byte of 
FILEPK 

43 CMP #$FF ;is it DLE? 

44 BEQ FEEDBLNK ; => yes, go handle 

45 STA (UNPKPTR), Y ;no, feed to FILEUNPK 

46 JSR INCPK ;inc PKPTR 

47 JSR COMPARE ; see if we're at EOFPK 

48 JSR INCUNPK ;we haven't, inc 
UNPKPTR 

49 BNE ADVANCE ; loop back, always 
50 

51 * 

52 * Found a DLE, send the right number of blanks 



53 * 

54 

55 FEEDBLNK JSR INCPK ; inc PKPTR, & fetch.. 

56 LDA (PKPTR), Y ;# of blanks to fee 

57 TAX ;use it as index 

58 LDA #$20 ; (SPACE) 

59 ONEBLNK STA (UNPKPTR) , Y; send blnk to FILEUN 

60 JSR INCUNPK ; inc UNPKPTR 

61 , DEX /enough blanks sent 

62 BNE ONEBLNK ;No, go send anothe 

63 JSR COMPARE ;done w/ blanks, EC 

64 JSR INCPK ;no, so inc PKPTR.. 

65 BNE ADVANCE loop back, 
always 

66 

67 * 

68 * Subroutine for incrementing PKPTR 

69 * 

70 

71 INCPK INC PKPTR ;lo-byte... 

72 BNE :NOTHI 

73 INC PKPTR+1 ; . . .hi-byte 

74 :NOTHI RTS 
75 

76 * 

77 * Subroutine for incrementing UNPKPTR 

78 * 

79 

80 INCUNPK INC UNPKPTR ;lo-byte... 

81 BNE :NOTHI 

82 INC UNPKPTR+1 ;.. .hi-byte 



83 :NOTHI 
84 

85 * 



RTS 



86 * Subroutine for comparing PKPTR with EOFPK 

87 * 

88 

89 COMPARE LDA PKPTR+1 ;hi-byte... 

90 CMP EOFPK+1 

91 BNE :NOTLO 

92 LDA PKPTR ;...lo-byte 

93 CMP EOFPK 

94 BEQ DONE /they're eql, go finish 

95 :NOTLO RTS /they're not equal, retu 
96 

97 * 

98 * Finish up, LENUNPK UNPKTPTR-FILEUNPK+1 

99 * 

100 

101 DONE JSR INCUNPK /here's the +1 

102 SEC /and now we'll subtrac 

1 03 LDA UNPKPTR / lo-byte . . . 

104 SBC #<FILEUNPK 

105 STA LENUNPK 

106 LDA UNPKPTR+1 /...hi-byte 

107 SBC #>FILEUNPK 

108 STA LENUNPK+1 



vars; in real life, these would have meaning 



109 
110 
111 
112 
113 
114 

115 * 

116 

117 EOFPK 
118 

119 LENUNPK 



Listing 3 



PLA ;we got here from inside a subrtn 
PLA ; so cancel return address 
RTS ;The End 



DA $2F37 /whatever: last item addr 

; in packed file, + 1 
DA $0000 ; result :len of unpked file 



* SAME TASK INVOLVING 16-BIT * 

* OPERATIONS, USING SWEET16 * 



* WARNING: 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 FILEPK EQU 

12 FILEUNPK EQU 

13 SW16 EQU 
14 
15 
16 
17 
18 
19 
20 
21 



SW 
ORG 



this in NOT a complete program! 
Do NOT try to enter and run it ! 

$2000 ;strt of pckd file in mem 
$4000 ; where unpacked file goes 
$300 ; (or wherever Sweet 16 is) 

; Sweet 16 will be used below 



$8000 



* Call the Sweetie interpreter 
★ 



* Initialise registers 
* 



22 UNPACK 
23 

24 * 

25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



JSR 



SW16 



; start Sweet 16 code 



41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 



ADVANCE LD @R1 ; look at a byte of FILE! 

CPR R4 ;is it OLE? 

BZ FEEDBLNK yes, go handle 

ST @R2 ;no, just feed to FILEUNl 

DONE? LD Rl /consider ptr to FILEPK 

CPR R3 ;is it EOFPK? 

BNZ ADVANCE ;=> no, go do it again 

BR DONE ;«> yes, go finish uj 



* Fo\ 
★ 



end the right number of blanks 



FEEDBLNK LD 

ST 
LD 
ST 
DCR 
BNZ 
BR 



ONEBLNK 



@R1 ;get # of blanks to fei 

R6 ;use it as index 

R5 ; SPACE 

@R2 ;send it to FILEUNPK 

R6 /decrement index 

ONEBLNK; if not done, send anoth* 
DONE? /finished sending blank; 

/go see if we've rchd E< 



^Finish, LENUNPK :=R2 (ptr 2 unpk'd fil) -FILEUNPK 
* (since R2 was incremented by last store) 
★ 



DONE LD R2 

SUB R7 /right answer now in RO 

SET R8, LENUNPK /(point to LENUNPK) 

STb 0R8 /give answer to LENUNl 

RTN /leave Sweet 16 

RTS /The End 



* vars/ in real life, these would have meaning 
* 

EOFPK DA $2F37 / (or whatever) 

LENUNPK DA $0000 /result, length of unpack. 

/file 



SET Rl, FILEPK / rl will pt to pckd file 

SET R2, FILEUNPK/ r2 pts to unpacked file 

LD R2 

ST R7 /save address in R7 too 

SET R8, EOFPK /pt to variable EOFPK 

LDD @R8 /get value (R8 just temp) 

ST R3 /r3 will hold value EOFPK 

SET R4,$00FF ;r4 holds DLE 

SET R5,$0020 / r5 holds SPACE 



* Run through FILEPK, looking for DLE=$FF 




KAT will sell no drive 
before it's time... 




KAT will not ship a hard drive without first: 

• Conferring with you about your entire system and setting the drive's interleave so as to insure optimal 
preformance for you. 

• Discussing the various partioning options and then setting them up to fit your specifications. 

• Depositing 20 megabytes of freeware, shareware, the latest system software, and all sorts of bonus goodies 
on the drive. 

• Testing the drive for 24 hours before shipping it out. 

KAT drives come in industrial-quality cases that have 60 watt power supplies (115-230 volts), cooling fans, 
two 50 pin connectors and room for another half-height drive or tape back-up unit. We also include a 6 ft. SCSI 
cable to attach to your SCSI card. You get all of this plus a one-year warranty on parts and labor! 

SB 48 Seagate 48 meg 40ms $549.99 
SB 85 Seagate 85 meg 28ms $698.99 
SB 105 Quantum 105 meg 12 ms $849.99 

Lookingfor an even hotter system? Call and ask for a quote on our 170, 300, & 600 megabyte Quantum drives! 

So ya wanna build yer own? Let KAT provide you with the finest parts available... 

SB Case 2 HH Drives 7w 5h 16d $139.99 T-60 Tape Teac 60 meg SCSI $449.99 

ZF Case 1 HH Drive lOw 3h 12d $169.99 with hard drive $424.99 

48 meg HD Seagate 40 ms 3.5" SCSI $349.99 3.5" to 5.25" Frame $ 12.50 

85 meg HD Seagate 28 ms 5.25" SCSI $469.99 Cable 25 pin to 50 pin 6 ft. $ 19.99 

105 meg HD Quantum 12 ms 3.5" SCSI $669.99 50 pin to 50 pin 6 ft. $ 19.99 

Programmers! Check our prices on your favorite 
development packages and accessories... 

Byte Works Roger Wagner Publishing 

OrcaC $89.99 HyperStudio $94.99 

OrcaM $44.99 Macromate $37.99 

Orca Pascal $89.99 

Orca Disassembler $34. 99 Stone Edge Technologies 



Other software and accessories: 



DB Master Pro $2 19.99 



Vitesse, Inc. Quickie , terrific hand scanner (400 dpi, 16 grays)$249.99 
Excorciser, virus detection system $ 29.95 

Renaissance, hard disk optimizer $ 34.95 Computer Peripherals 

Guardian, program selector and disk utiHties ViVa24, 2400 baud, 100% Hayes compatible modem 

$34 95 (comes with a FIVE YEAR Warranty) $139.99 

Applied Eng. TranswarpGS $289.99 1 meg SIMMs 80 ns $89.99 

Keytronic 105 Key ADB Keybrd $139.99 1 n^^g X 1 80 ns 8/$79.99 



Call the KAT at (913) 642-4611 or write: KAT, 8423 W 89th St, Overland Park, KS 66212-3039 




Illusions of Motion, Part II 



by Steven Lepisto 



(Editor: This is the second in an extended semirregudar 
series on Ilgs animation. Last time (March '90). Steve 
provided a "core" animation demo which he will modify 
with each new article.) 

Last time , I presented a program that moved two images 
around the super hires screen. There was no back- 
ground image, only blackness, and the objects inter- 
fered with each other when one passed over the other. 
But they were quick in their motions. This time. I am 
going to present the concepts of masks, background 
buffering, and shadowing. These techniques, when 
combined, will give us a more flexible, if somewhat 
slower, system of animation. That is always the trade- 
off: more flexibility generally means slower execution. 
However, when we can move an image across a multi- 
colored background without disturbing that back- 
ground, perhaps the trade-off isn't quite so bad. 

The two principle components of moving an image 
across a complex background are the concept of trans- 
parency and the concept of preservation of background. 
Taken together, it is possible to move an image across 
a complex background without disturbing either it or 
the image. 



The Concept of Transparency 

Transparency in an image is that part of the image that 
allows the background to show through (the way a 
window allows the outside to show through the wall). 
Transparency can be thought of as a "hole" in the image. 
So how can we put holes in images? 

One way is to examine each pixel of the image as we plug 
it to the screen. If the pixel is to be transparent then 
don't put it on the screen, leaving the background alone. 
This method isn't all that fast but it's advantage is it 
saves the memory used by masks, which is the next 
method to talk about in making holes. 



A mask is essentially a filter that allows certain areas of 
an image to be treated as transparent. It is combined 
with the image itself using the AND function. You then 
use the OR function to add the image to the back- 
ground. ORing requires the transparent colors to be set 
to 0, otherwise the process will change the colors that 
are to shine through the transparent areas. The AND 
function gives us the ability to tum the transparent 
colors to 0. 

The steps for putting the image into a background using 
a mask are: 

1) Punch a hole in the background where the image will 
go. Doing this insures the bits in the image aren't 
influenced by the bits in the background. 

2) Combine the image and mask to create a bit image 
with O's in the places where the image is considered 
transparent. This way the bits in the background aren't 
influenced by the transparent bits in the image. 

3) Add the combined image and mask data to the 
background using the OR function. 

That's it. Here is a simple code fragment that shows the 
above steps. 

Ida mask ;step 1: punch hole in backgrounc 
eor #$ffff 
and background 
St a temp 

Ida image /step 2: combine image and mask 
and mask 

ora temp ; step 3 : add image and mask to b 
sta background 

To punch a hole in the background (that is, set to all 
the areas in which the image will go), you need a 
"negative" of the mask: you are cutting a hole in the 
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background where the image will be but you want to 
leave the background alone where the transparent 
areas in the image are. This is the exact opposite of how 
you want the mask to be applied to the image. So you 
create a negative of the mask by Ebcclusive ORing it with 
a pattern with all bits set to 1 (i.e., $fiH). You then AND 
the negative mask with the background and save the 
result off. 

Combining the normal mask with the image will insure 
that all areas that are transparent are set to O's. 

To add the masked image to the background, take the 
masked image and OR it into the cut out background 
then store the result back in the background picture. All 
the parts of the image will contain the background and 
all the parts of the background will contain the image. 
Neat! 

As a faster alternative, if the image already has O's 
where you want the transparency to be, pre-inverse (or 
make negative before using) the mask then use the 
following code fragment: 

Ida background 

and mask 

ora image 

sta background 

This is much shorter and definitely quicker because 
there are fewer steps being taken. The only drawback to 
this approach is that color (which is represented by a 
nybble with all 0*s in it) can never be used in the images 
except as a transparent color. Sometimes this can be a 
serious drawback, but usually it isn't much of a prob- 
lem. 

To get around the problem of losing the use of color as 
a color, the following technique can be used (the mask 
is not made negative but is normal for the image): 

Ida image 

eor background 

and mask 

eor background 

sta background 

Not much longer than the previous method and though 
it's a little slower, it is more flexible. The new 
PLOTJMAGE routine uses this technique. The advan- 
tage of this method is when you make the mask for the 



image, you can say that any color of the mask is 
transparent. So if you create an image using color 6 as 
the transparent color (for whatever reason) you can 
create a mask that makes color 6 transparent and the 
above code will work quite nicely. 

And that is how to use a mask to create a transparent 
color in an image. 



The Concept of Preserving Background 

Now, you may have been wondering how it is possible to 
erase the image once it has been added to the back- 
ground using masks and ORing. That's a very good 
question. There are a couple of techniques that can be 
used. One is to keep a virgin copy of the background 
picture somewhere safe and whenever you need to erase 
something from the background being used, you copy 
from the virgin background those areas needing restor- 
ing. The advantage of this is it is faster than the next 
technique Fm going to describe. The disadvantage is it 
uses more memory — a lot more memory. 

Another technique, and the one in use in the example 
program, is to preserve only enough background where 
the image will go before plotting the image. Then all you 
have to do is copy that buffered piece of background 
back from where you got it and the image will be erased. 
This way you only need to save and restore a rectangle 
the same size as the image being plotted which can save 
memory (over buffering the entire background), espe- 
cially if you only have a few objects to deal with. 
However, it does add a step to the whole process of 
animation which can slow things down. 

A third technique which is generally not very useful for 
most animation chores these days is the use of Exclu- 
sive OR. This technique provides a way of plotting an 
image with transparent areas of color and removing 
that image from the background without needing to 
buffer the background. Exclusive OR is a function that 
will toggle bits on and off. If you do the same EOR 
process twice in a row with the same data, the image will 
be erased and the background restored to normal. This 
is very fast technique with only one serious disadvan- 
tage: the colors in the image and background tend to 
combine in really weird ways. However, EOR can be 
used for interesting effects or in areas where the back- 
ground is mono-colored and color conflict won't arise. 
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How To Use Transparency and Buffered 
Background Without Flicker 

Okay, to bring the whole process of transparency and 
buffering together, here is a simple algorithm for anima- 
tion: 

1) buffer (save) background where image will go 

2) draw image into the background using a mask 

3) erase the image by copying the buffered background 
on top of image 

4) move the image 

5) repeat steps 1 to 4. 

There is only one problem with the above: it takes time 
to buffer and move an object and you will notice that 
there are moving and buffering steps between the erase 
and draw procedures. This means that the erase proce- 
dure will cause flicker because the time taken for the 
move and buffer procedures causes the eye to see the 
erasing process. How to cope with this? 

We need a way of erasing and redrawing that isn't visible 
to the user... specifically, a way of drawing and erasing 
on an invisible screen while another is visible then with 
the flip of a switch show the new screen while drawing 
and erasing on the first screen, which is now invisible. 
Back and forth, back and forth, always working on the 
invisible screen. Because the e^e would never see the 
erasing of the image, there would be no flicker. This 
technique is called page-flipping and we can't do it in 
super hires on the Ilgs. 

However, there is a way to sort of page-flip. This 
technique takes advantage of a hardware feature of the 
Ilgs called shadowing. By using shadowing, a byte put 
in one area of memory will automatically be copied or 
shadowed to another area of memory. The super hires 
screen at address $e 12000 is where the video circuitry 
gets the information to display the screen on the video 
monitor. The memory at $0 1 2000 is shadowed onto the 
memory at $e 12000 but isn't directly connected to the 
video circuitry. When you write a byte to the memory 
starting at $012000 with shadowing tumed on, it will 
automatically be copied to a corresponding point in the 
memory at $e 12000. Since it is possible to tum off this 
shadowing function, you can write to the memory at 
$0 12000 and not have it show up at $e 12000. This gives 
us the invisible screen to draw and erase on. 

Now, just by tuming on shadowing doesn't cause the 



shires screen at $012000 to magically appear at 
$e 12000. Only when data is written to $012000 while 
the shadowing is on will it appear at $e 12000. So a 
simple solution is to Just read from the memory at 
$012000 and immediately write it back to the same 
point. Do this with the shadowing tumed on and the 
image is made visible. 

This is a lot slower than true page-flipping where you 
would simply hit a switch and the hardware would 
instantly start showing the second page. However, 
shadowing does provide a means of doing complex, 
flicker-free animation at a reasonable speed. One nice 
thing about shadowing is we take advantage of the 
higher memory speed in the shadowed memory (the 
memory at $e 12000 always runs at IMHz while the 
shadowed memory runs at over twice that speed). 

So the steps for flicker-free animation with shadowing 
are: 

1) tum shadowing off 

2) buffer background from the shadowed screen where 
image will go 

3) draw image into the background on the shadowed 
screen using a mask 

4) tum shadowing on 

5) copy the portion of the shadowed screen where the 
image is to itself 

6) tum shadowing off 

7) erase the image by copying the buffered background 
back to the shadowed screen 

8) move the image 

9) repeat steps 2 to 8. 

True, this is more complex than the previous method, 
but it opens up the door to bunches and bunches of 
complex animation. 



Updating tlie Experimental Program 

Here is a list of changes to the program printed last time 
which will add support for masks and shadowing. 

1) Make the changes indicated in listing one. The lines 
to change are marked; the additional lines are there to 
position the changes correctly. 

2) Enter the new routines given in listing two. 

3) Enter the mask and buffer data in listing three. 
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4) Finally, replace the old PLOTJMAGE routine with the 
one in listing four. 

Don't forget to create a new macro file for the finished 
source code. 



In Conclusion 

Animation is a complex process on a computer, even in 
its simplest form. However, with perseverance and 
experimentation, you too can create Illusions of Motion. 



with knowledge of computer animation — Tm always 
learning something new about it! 



Listing one: 

In the following source code fragments, add the lines 
marked with a + at the end. Some of the routines have 

been truncated. This is indicated by " (Editor: Steve 

has reprinted some portions of the original animation 
engine here for continuity. You only need to add those 
lines marked with a 



Things To Experiment With 

1) In Plot_Setup, comment out the line "moveword 
#$01;shires_adrs+2" to see the action without the ef- 
fects of shadowing. That is flicker. (Note, the program 
supplied on disk has different instructions for showing 
flicker. See the comments in the source code at the 
beginning of the program.) 

2) Rewrite the heart of the Plotjmage code to use the 
plotting idea of: 



Ida 
and 
ora 
sta 



background 
mask 
image 

background 



Note that the masks will have to be inversed by hand 
(change all O's to Fs and all Fs to O's). 

3) The Showjmage routine can be optimized a bit by 
eliminating the addition to screen_ptr at the end of the 
loop. See if you can work it out. 

4) For the ambitious types, this program still won't work 
properly with velocities greater than 2. See if you can 
figure out where the problem lies (hint, the problem is 
in only one routine). 

There are always different ways to apply the techniques 
I've described. The program code I wrote for this series 
isn't optimized for high speed animation. In fact, there 
are techniques I haven't described that are even faster 
than those given here. However, I have striven for ease 
of understanding over speed of execution (Editor: for 
now). The code I gave here is quite good for many 
animation projects, however. Feel free to play with it, 
change it, use it as is. I am by no means the only person 



dum 


$00 




deref_ptr ds 


4 




rowadrs table 


ds 4 




screen_ptr ds 


4 




image ptr ds 


4 




mask ptr ds 


4 




buffer ptr ds 


4 




dend 






image_height ds MAXIMAGES*2 




image_width ds 


MAXIMAGES*2 




image_bytewidth ds MAXIMAGES*2 




image adrs ds 


MAXIMAGES*4 




mask adrs ds 


MAXIMAGES*4 


+ 


buffer_adrs ds 


MAXIMAGES*4 


+ 


Animate jsr 


in it_i mages 




jsr 


init boundaries 




jsr 


shadowon 


+ 


jsr 


make an image 




jsr 


shadowof f 


+ 


: 1 jsr 


draw images 




jsr 


show images 


+ 


jsr 


erase images 




jsr 


move images 




Ida 


#1 




jsr 


pause a moment 




jsr 


read key 




bcc 


:1 




rts 







draw_images stz image_index 



Ida 
sta 



image_adrs , y 
image_ptr 
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Ida 


image_adrs+2 , y 




sta 


i ma ge_pt r + 2 




Ida 


mask___adrs,y 




sta 


mask ptr 




Ida 


mask adrs+2,y 


+ 


sta 


mask ptr+2 


+ 


Ida 


buf f er_adrs , y 


+ 


sta 


buf f er_ptr 


+ 


Ida 


buf f er_adrs+2 , y 


+ 


sta 


buf fer_ptr+2 


+ 


jsr 


buf f er__image 


+ 


jsr 


plot^image 




inc 


image^index 




Ida 


image__index 




cmp 


n u mbe r_o f _i ma ge s 




bcc 


:1 




rts 







init_images Idx #0 



Ida 


def_image, y 




sta 


image_adrs, y 




Ida 


def _image+2 , y 




sta 


image_adrs+2 , y 




Ida 


def mask,y 


+ 


sta 


mask adrs,y 




Ida 


def_mask+2, y 




sta 


mask_adrs+2 , y 


+ 


Ida 


def_buf f er, y 


+ 


sta 


buf f er_adrs , y 


+ 


Ida 


def_buf fer+2,y 


+ 


sta 


buf f er__adrs+2 , y 


+ 


inx 






inx 






cpx 


#MAXIMAGES*2 




bcc 


:1 




txa 






Isr 






sta 


numbe r_o f _i ma ge s 




rts 







de f _he ight da 15,15 

def_image adrl basic__image_l , basic_image__2 
def__mask adrl basic_mask__l, basic__mask_2 + 
def^buffer adrl buf ferl, buff er2 + 



plot__setup -GetPortLoc tshireslocinf o 
-Get Address #1 
pulllong rowadrs_table 

moveword #$0;L ; shires__adrs+2 + 
rts 



do startup 

-QDStartUp tool_dpage; #$00; #0;ProgramID 

bcs :x 

Ida tool__dpage 

clc 

adc #$300 

sta tool_dpage 

+ 

* Allocate shadow screen memory for our use. + 

+ 

-NewHandle #32768;PrivateID; #$c013; #$012000 
pla + 
pla + 
bcs : X 
jsr plot_setup 



Listing two: 

Add these entire routines to the code. 

* Disable shadowing of the shadow screen. 

shadow__register = $e0c035 

ShadowOff Idal shadow_register 
era #%1000 
stal shadow__register 
rts 

* Enable shadowing of the shadow screen. 

ShadowOn Idal shadow_register 

and #%1111_1111__1111_0111 

stal shadow_register 

rts 

★ 

* Draws a multi-color background picture on the 
shadow 

* screen on which to move the images . 

make_an_image --GetPortLoc #savelocinfo 

--SetPortLoc #shireslocinf o 

stz mai_loop__index 
: 1 Ida mai_loop__index 

asl 

tax 

phx 

-SetSolidPenPat rect_color,x 

pla 

asl 

asl 



clc 

adc #<rect angles 
tax 

Ida rectangles 

adc #0 

pha 

phx 

__PaintRect 

inc mai_loop_index 

Ida mai_loop__index 

cmp #6 

bcc : 1 

~SetPortLoc #savelocinfo 
rts 



inai__loop_index ds 2 



rect_color da 
rectangles da 
da 
da 
da 
da 
da 



2,6,6,8,12,7 

0,0,200,320 

10,10,100,100 

10,220,100,310 

130,20,180,300 

80, 140, 120, 180 

178,260,190,270 



* Used to save original port locinfo 
savelocinfo ds 16 



* Copy the regions in which the images were drawn 

* themselves with shadowing turned on. This causes 

* images to become visible on the shires screen. 

show__images stz image^index 
:1 



Erase images on the shadow screen by copying th 
contents of the buffers which hold the bkground 
under the image. This loop must be reverse of 
drawing loop else overlapping images wouldn't b 
properly erased. 



:1 



erase__images 
beq 
dec 
sta 
Ida 
asl 
tax 
asl 
tay 
Ida 
sta 
Ida 
sta 
Ida 
sta 
Ida 
sta 
Ida 
sta 
Ida 
sta 
jsr 
dec 
bpl 
rts 



Ida number_of_images 

:x /nothing to show 

image_index 
image_index 



image_bytewidth, X 

plot_bytewidth 

image__height , x 

plot__height 

xposition, x 

plot_xpos 

yposition, X 

plot_ypos 

buf f er_adrs , y 

buf f er_ptr 

buf f er_adrs+2 , y 

buf fer__ptr+2 

erase_image 

image_index 

:1 



* Buffer background under image in preparation of 

* drawing image. Buffered background is used to 

* erase the image later on. 



Ida 


image_index 






asl 




buffer_image Ida plot_ypos 


tax 




asl 


;Y — > index 


asl 




tay 




tay 




Ida 


plot_xpos 


Ida 


image_bytewidth, X 


Isr 


/pixels to bytes 


sta 


plot_bytewidth 


clc 




Ida 


image__height, x 


adc 


[rowadrs__table] ,y 


sta 


plot_height 


sta 


screen ptr 


Ida 


xposition, X 


Ida 


shires adrs+2 


sta 


plot_xpos 


sta 


screen_pt r+2 


Ida 


yposition, X 


Idx 


plot__height 


sta 


plot_ypos 


:row__loop Idy 


#0 


jsr 


show__image 


:byte_loop Ida 


[ screen_jptr ] ,y 


inc 


image_index 


sta 


[buf f er__ptr ] ,y 


Ida 


image^index 


iny 




cmp 


numbe r_of _image s 


iny 




bcc 


:1 


cpy 


plot bytewldth 


rts 




bcc 


:byte loop 






Ida 


buf fer__ptr 






clc 








adc 


plot_by t ewi dt h 



sta 


buf fer^ptr 


bcc 


: 1 


inc 


buf fer_j>tr+2 


Ida 


screen__ptr 


clc 




adc 


shi re s__by t e__width 


sta 


screen__ptr 


dex 




bne 


: row_loop 


rts 





* Copy a rectangle of shadow screen to itself with 

* shadowing turned on. This causes the region 
where 

* image was drawn to become visible on the screen. 



show_image jsr 
Ida 
asl 
tay 
Ida 
Isr 
clc 
adc 
sta 
Ida 
sta 
Idx 

:row__loop Idy 
:byte_loop Ida 
sta 
iny 
iny 
cpy 
bcc 
Ida 
clc 
adc 
sta 
dex 
bne 
jsr 
rts 



shadowon 
plot^ypos 



plot__xpos 



;Y — > index 



r pixels to bytes 



[rowadrs_table] ,y 

screen_ptr 

shires_adrs+2 

s c r een__pt r + 2 

plot_height 

#0 

[ screen_pt r ] , y 
[screen_ptr] ,y 



plot_bytewidth 
: byte__loop 
screen_jptr 

s hi r e s_by t e_w i dt h 
screen_ptr 



: row_loop 
shadowof f 



* Erase an image from shadow screen by copying the 

* contents of a buffer onto it . The buffer holds 

* background under the image. 



erase__image Ida plot_ypos 



asl 
tay 
Ida 
Isr 
clc 



;Y — > index 



plot_xpos 



/pixels to bytes 



adc 
sta 
Ida 
sta 
Idx 

:row_loop Idy 
:byte__loop Ida 
sta 
iny 
iny 
cpy 
bcc 
Ida 
clc 
adc 
sta 
bcc 
inc 

:1 Ida 
clc 
adc 
sta 
dex 
bne 
rts 



Listing three: 



[rowadrs_table] ,y 

screen_ptr 

shi re s_a dr s + 2 

screen_ptr+2 

plot_height 

#0 

[buf f er__ptr] ,y 
[ s creen_pt r ] , y 



pi ot_by t e w i dt h 
:byte__loop 
buf f er_jc>tr 

plot__bytewidth 
buf f er_ptr 
:1 

buff er___ptr+2 
screen^^tr 

sh i r e s__by t e_w i dt h 
screenj>tr 



: row__loop 



Add these masks and buflfers to the end of the pro- 
gram. 



rl6 O's 



basic_ 


_mask_l 


hex 0000000000000000 




hex 


0000000000000000 




hex 


OOOffffffffffOOO 




hex 


OOffff ffffffff 00 




hex 


OOfffffOOfffffOO 




hex 


OOffffOOOOffffOO 




hex 


OOfffOOOOOOfffOO 




hex 


OOffOOOOOOOOffOO 




hex 


OOfffOOOOOOfffOO 




hex 


OOffffOOOOffffOO 




hex 


OOfffffOOfffffOO 




hex 


OOffffffffffffOO 




hex 


OOOffffffffffOOO 




hex 


0000000000000000 




hex 


0000000000000000 


basic_ 


_mask_2 


hex 0000000000000000 




hex 


0000000000000000 




hex 


OOOOOOOffOOOOOOO 




hex 


OOOOOOffffOOOOOO 




hex 


OOOOOffffffOOOOO 




hex 


OOOOffffffffOOOO 
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hex OOOffffffffffOOO 

hex OOffffffffffffOO 

hex OOOffffffffffOOO 

hex OOOOffffffffOOOO 

hex OOOOOffffff 00000 

hex OOOOOOffff 000000 

hex OOOOOOOff 0000000 

hex 0000000000000000 

hex 0000000000000000 

* Enough buffer space for each image above 

bufferl ds 8*15 

buffer2 ds 8*15 

Listing four: 

Replace the old plot^lmage routine with this one. 



plot^image Ida plot_ypos 
asl 
tay 

Ida plot___xpos 
Isr 
clc 
adc 
sta 
Ida 
sta 
Idx 



;Y — > index 



/pixels to bytes 



[rowadrs__table] ,y 
screen_ptr 
shires_adrs+2 
s c r een_pt r + 2 
plot_height 



eor 


[screen ptr] ,y 


and 


r m a o ^ IT' 1 XT 

L luo. S p L. 1. } f y 


eor 


[screen ptr] ,y 


sta 


[screen ptr] ,y 


xny 




iny 




cpy 


plot^bytewidth 






laa 


iinage__pt r 


clc 




adc 


y w ini JL v-i 1 X 


sta 


image_ptr 


bcc 


:1 


inc 


1 m^* <T*5k Tit" 1^4- P 




Ilia, o A. ^ L. i 


clc 




adc 


plot bytewidth 


sta 


ina.oj\. pur 


bcc 


: 2 


inc 


mask_ptr4-2 


Ida 


screen_ptr 


clc 




adc 


shire s__by t e__wi dt h 


sta 


screen j>tr 


dex 




bne 


: row_loop 


rts 





:row__loop Idy #0 
:byte__loop Ida [image_ptr] ,y 




Farms Away: Passing Parameters 
to Subroutines 



by Robert Stong 



In some high level computer languages, such as FOR- 
TRAN and Pascal, there is a technique known as 
passing parameters to a subroutine. This technique 
makes subroutines a much more powerful tool. 

As an illustration, you can write a general subroutine 
which sorts an array X consisting of N elements. Then, 
in your program, with parameter passing, you can sort 
an array 

A with B elements by specifying that X is to be A and N 



is to be B. Without parameter passing available, one 
must either write the routine using the variables A and 
B or must 

move the contents of the array A to the array X so they 
can be sorted. The lack of passing ability makes the 
subroutine much less convenient. 

Fortunately, Applesoft BASIC has a nice feature that 
will let you pass parameters to a subroutine. Many 
writers describe this feature as a flaw. The point is that 
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Applesoft BASIC will let you use long variable names, 
but only uses the first two letters of the name to identify 
the variable. 

The way to use this feature is to write your subroutine 
using long variable names. When you are ready to use 
the routine with given parameters, it is only necessary 
to change the first two letters of each variable name. 
This can be accomplished quite simply by using a small 
machine language routine that recognizes long variable 
names and resets their first two letters. Effectively, the 
machine language routine is rewriting your subroutine 
using the variable names you have specified in your 
parameter list. Because the subroutine uses long 
names, variables can be identified by the last letters of 
their names, and the process can be repeated with other 
parameters. 

To illustrate this method, I am including a demonstra- 
tion program which has two subroutines. One subrou- 
tine creates a general menu from which the user selects 
options. The other subroutine forms the product of two 
matrices. These are quite typical general subroutines. 
The demonstration makes repeated use of these rou- 
tines with different parameters. 



Entering the program 

If you have an assembler, enter the source code in 
Listing 1 and save the assembled object code as PAR- 
AMS. If you don't have an assembler, use the hex codes 
from Listing 2 and save the file with the command 

BSAVE PARAMS, A$6000, L$E2 

Enter the Applesoft program in Listing 3 and save it 
with the command 

SAVE PAR. DEMO 



Using Params with your programs 

Obviously, if you want to use this machine language 
routine to do parameter passing in your own program, 
you need to know some details about it. 

PARAMS is completely relocatable. I chose to assemble 
it at location $6000, but it can be loaded and run at any 
location. It does use memory at location $300 as 
workspace for manipulating variable names. If you are 



using page 3 for other purposes, you will want to change 
the location of TABLE (or change the hex 03's in 
locations $602A, $60A7, $60B2, and $60B8 to some 
other value, such as 61). 

To use PARAMS, you write your Applesoft subroutine 
just as you always do except that any variable name you 
wish to use as a parameter must have at least three 
characters. 

PARAMS ignores the first two characters and resets 
them based on your parameter list. All characters past 
the first two are used as identifying information. 

TTie instruction to invoke PARAMS has the format 

CALL address^ line number, line number, 
variable names . 

The address is the load address of PARAMS (24576 if 
one uses $6000). The two line numbers are the first and 
last lines in which variable names will be changed. The 
list of variable names, separated by commas, are the 
new names desired within the line range. The order in 
which the names are listed is irrelevant, and you need 
only list a name if you want to change it. 

Variable names for PARAMS must include the array and 
type identification. Thus ABXX, ABXX%, ABXX$, 
ABXX(, ABXX%(), and ABXX$( )are all treated as differ- 
ent variables: real, integer, string, and arrays of these. 
If ABXX occurs in the variable list, PARAMS will change 
all four-letter real variable names ending in XX to ABXX 
in the chosen line range. 

PARAMS will not change anything occuring after REM, 
within quotation marks, or in a DATA statement. 

PARAMS wiil change Applesoft function names. In the 
expression FN ABC(X), Applesoft uses exactly the same 
rules for identification as if ABC( )was an array of real 
variables. (Standard functions are tokenized so will not 
change, but user defined functions can and will 
change.) If you don't want to change a function name, 
you must be sure its name does not end in the same 
letters as are being used for any real array parameter. 



WARNINGS 

PARAMS accepts UV(), UV$, and IJV% as valid variable 
names with three characters. If these were used in a 
parameter list, PARAMS will change all two-letter real 



arrays, integers, or strings to the given two-letter name. 
To avoid this, I would recommend always using names 
with at least four characters. 

PARAMS does change the way in which your program is 
stored in memory. You should always be cautious when 
using such programs. Be sure to SAVE your program 
before you run it. (If you had a syntax error PARAMS 
might scramble your program.) 

Using utilities which renumber an Applesoft program 
will probably not work with PARAMS. Most such utili- 
ties will not recognize the line numbers in the CALL 
statement. They would need to be changed manually. 



Another system... 

In volume 6, number 1 1 of Nibble, there was a feature 
article by H. Cem Kaner and John R. Vokey entitled 
"Subroutine Master". They provided an elaborate pa- 
rameter passing system which was based on modifica- 
tion of the names stored in Applesoft variable space. The 
article included a discussion of many points to consider 
in such a system and the complications which arise. 

While their system had some nice features that are not 
available with this method (named subroutines and 
local variables), I think you will find this system to be 
utterly simple. It avoids many of the complications. 





165, 


7 


10070 


DATA 


133, 9, 160, 3, 200, 177, 8, 208, 26 




160 




10080 


DATA 


0, 177, 8, 170, 200, 177, 8, 133, 9, 




134 




10090 


DATA 


8, 197, 156, 208, 233, 228, 155, 208 




229, 


32 


10100 


DATA 


183, 0, 208, 184, 96, 201, 178, 240, 




226, 


201 


10110 


DATA 


131, 208, 11, 200, 177, 8, 240, 217, 




201, 


58 


10120 


DATA 


208, 247, 240, 206, 201, 34, 208, 11 




200, 


177 


10130 


DATA 


8, 240, 202, 201, 34, 208, 247, 240, 




191, 


201 


10140 


DATA 


65, 144, 187, 201, 91, 176, 183, 162 




0, 200 


10150 


DATA 


177, 8, 201, 91, 144, 35, 228, 25, 




208, 


171 


10160 


DATA 


132, 26, 136, 177, 8, 221, 0, 3, 208 




17 




10170 


DATA 


202, 224, 1, 208, 243, 136, 173, 1, 




145 




10180 


DATA 


8, 136, 173, 0, 3, 145, 8, 164, 26, 




208 




10190 


DATA 


140, 201, 65, 144, 3, 232, 208, 207, 




201, 


58 


10200 


DATA 


176, 210, 201, 48, 176, 245, 201, 36 




240, 


4 


10210 


DATA 


201, 37, 208, 4, 232, 200, 177, 8, 




201, 


40 


10220 


DATA 


208, 190, 232, 200, 208, 186, 173 



Listing 1: PARAMS Poker 



10 FOR X = TO 226 

20 READ ML 

30 POKE 8192 + X,ML 

40 PRINT CHR$ (4) "BSAVE PARAMS . OBJ, A8192, L226" 
99 END 

10000 DATA 32, 190, 222, 32, 12, 218, 32, 26, 
214, 165 

10010 DATA 155, 133, 6, 165, 156, 133, 7, 32, 
190, 222 

10020 DATA 32, 12, 218, 230, 80, 144, 2, 230, 
81, 32 

10030 DATA 26, 214, 32, 190, 222, 162, 0, 32, 

183, 

10040 DATA 157, 0, 3, 32, 177, 0, 240, 7, 201, 
44 

10050 DATA 240, 3, 232, 208, 241, 134, 25, 224, 
2, 176 

10060 DATA 3, 76, 201, 222, 165, 6, 133, 8, 



Listing 2: PARAMS Dexoo 

100 PRINT CHR$ (4);"BL0AD PARAMS" 
110 DIM MA$ (3) ,00$ (5) ,AA(5, 5) ,BB(5, 5) ,CC(5, 5) 
120 READ MT$: FOR I = 1 TO 3: READ MA$(I) : NEXT 
:MN = 3 

130 READ CT$: FOR I = 1 TO 5 : READ CO$(I): NEXT 
:CN = 5 

140 CALL 24576, 500, 555, MTTT$,MNRR,MAXX$ (,MSSS: 
GOSUB 500 
150 ON MS GOTO 160,210,400 

160 CALL 24576, 500, 555, CTTT$, CNRR, C0XX$ (,CSSS: 
GOSUB 500 
170 OR : HOME : COLOR* CS 

180 FOR I = TO 39: HLIN 0,39 AT I: NEXT 
190 VTAB 22: PRINT '^PRESS ANY KEY";: GET A$ 
200 GOTO 140 

210 TEXT : HOME : HTAB 15: PRINT ^mTRIX DEMO" 
220 VTAB 3: HTAB 5: PRINT ^^This program will 
compute the": PRINT ^^powers of the matrix:" 



w^^, mm 



230 

240 

PRINT 
250 
260 



PRINT : HTAB 16: PRINT *V";: HTAB 24: PRINT 



FOR I « 1 TO 5 

': NEXT 
HTAB 16: PRINT '^\"; 
FOR I « 1 TO 3: 
= I) : VTAB 5+2 * I: 
AA(I, J) : NEXT : NEXT 
270 VTAB 14: PRINT 
GET A$:T3 - 3:P = 1 
280 
290 



HTAB 16: PRINT 



HTAB 24: 



HTAB 24: PRINT ^V" 
FOR J - 1 TO 3:AA(I,J) « (J > 
HTAB 16 + 2 * J: PRINT 

PRESS ANY KEY TO BEGIN : 



HTAB 1: CALL - 868 

VTAB 14: HTAB 10: PRINT *V"; : HTAB 32: PRINT 



\\ ^ 

300 
PRINT 

310 
PRINT 

320 



FOR I 
^M": NEXT 
HTAB 10: PRINT 

VTAB 24: PRINT 



1 TO 5: HTAB 10: PRINT T 



HTAB 32: 



^\";: HTAB 32: PRINT ^V": 



PRESS ANY KEY TO STOP";: 

- 16368, 
330 CALL 

24576, 600, 625, BBXX ( , AAYY ( , AAZZ ( , T3MM, T3NN, T3PP 
GOSUB 600 

TO 3: VTAB 13+2 * I: FOR J = 
J: PRINT BB(I,J);: NEXT : NEXT 
HTAB 19: PRINT P;"-th power" 
> 127 GOTO 380 
CALL 24576, 600, 625, CCXX(,BBYY( : GOSUB 600 
FOR I = 1 TO 3: VTAB 13+2 * I: FOR J = 1 



POKE 



340 FOR 1=1 
3: HTAB 7 + 6 * 
P + 1: VTAB 22: 
PEEK ( - 16384) 

350 

360 



1 TO 
:P - 
IF 



TO 



3: HTAB 7 + 6 * J: PRINT CC(I,J);: NEXT : NEXT :P 
P + 1: VTAB 22: HTAB 19: PRINT P;"-th power": IF 
PEEK ( - 16384) > 127 GOTO 380 

370 CALL 24576, 600, 625, BB)tX(,CCYY(: GOSUB 600: 
GOTO 340 

380 POKE - 16368,0: VTAB 24: HTAB 1: PRINT 
^^PRESS ANY KEY TO CONTINUE 'V; : GET A$ 
390 GOTO 140 
400 TEXT : HOME : END 

410 DATA ^^PARAMETER PASSING DEMO" , "COLORED 
SCREEN", "MATRICES", "QUIT" 

420 DATA ^^SCREEN 
COLORS", "MAGENTA", "BLUE" , "VIOLET" , "GREEN", "GRAY" 
4 91 REM MENU ROUTINE 
LINES 500-555 
ENTER TTTT$=TITLE LINE 

RRRR«# OF MENU ITEMS 
XXXX$(=MENU ITEMS 
SSSS=SELECTION MADE 
LOCAL : H,I,X 

HOME : HTAB 21 



520 VTAB 22: PRINT ARROWS OR NUMBER TO CHANGE" 
PRINT ^"<RETURN> TO SELECT" 

525 VTAB 2 * I + 11 - MNRR: HTAB H: INVERSE : 
PRINT I;") ^\-MAXX$ (I) ; : NORMAL : POKE - 16368,0 

530 X - PEEK ( - 16384) : IF X < 128 GOTO 530 

535 POKE - 16368, 0:X « X - 128 

540 HTAB H: PRINT I;") '\-MAXX$(I): IF X = 13 TH 
MSSS = I: RETURN 

545 IF 48 < X AND X < 49 + MNRR THEN I = X - 48 

550 1=1+ (X = 10) - (X = 11) : IF I < 1 OR I > 
MNRR THEN I = (I > MNRR) + MNRR * (I < 1) 

555 GOTO 525 

591 REM MATRIX MULTIPLICATION 

592 REM LINES 600-625 

593 REM ENTER XXXX (=PRODUCT 

594 REM MMMMxPPPP=ITS SIZE 

595 REM YYYY(=FIRST FACTOR 

596 REM NNNN=ITS COLUMNS 

597 REM ZZZZ(=SECOND FACTOR 

598 REM LOCAL: I,J,K 

600 FOR I = 1 TO T3MM: FOR J = 1 TO T3PP 

605 CCXX(I,J) = 

610 FOR K = 1 TO T3NN 

615 CCXX(I,J) = CCXX(I,J) + BBYY(I,K) * AAZZ (K, J 
620 NEXT : NEXT : NEXT 
625 RETURN 



MicroDot j"!!?^,?^ 



492 
493 
494 
495 
496 
497 
500 
2) 



REM 
REM 
REM 
REM 
REM 
REM 
TEXT 
PRINT 'mTTT$ 



INT ( LEN (MTTT$) / 



LEN 



505 H = 3: FOR I = 1 TO MNRR: IF H < 3 + 
(MAXX$(I)) THEN H = 3 + LEN (MAXX$(I)) 
510 NEXT :H = 21 - INT (H / 2) 

515 FOR I = 1 TO MNRR: VTAB 2 * I + 11 - MNRR: 
HTAB H: PRINT I;") ^\-MAXX$(I): NEXT :I = 1 



The Logical 




Replacement 
for 

iliiliiiH^^ 



Just 2.5K in size, but more powerful than BASIC.SYSTEM. 

Imagine doing BASIC overlays simply by specifying the file 
name and the line number where you want to overlay. How 
about loading an array of directory names at machine lan- 
guage speed. You get this and total control over ProDOS 
that is impossible with BASIC.SYSTEM. Works with Pro- 
gram Writer ($42.45. Both for $59.95 + S&H). Love it or get 
your money back! Inexpensive publishers' licenses. 



Free Catalog and Details 



Kitchen Sink Software, Inc 
903 Knebworth Ct. Dept. 8 
Westerville, OH 43081 
(614) 891-2111 



nquifies invited 



mm 
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Making a List & Checking It Twice 



by Steve Stephenson 



So, you already know how to use the List Manager. Fine, 
rd like to show you a few ways to extend your list power. 
In this article, I present two low-level *hook' type rou- 
tines that are designed to show you how to customize 
your lists. Fve also thrown in a method to add a 
professional touch to your programs. This bag of tricks 
contains: 

* A custom draw routine 

* A custom compare routine 

* A routine to detect double clicking 

Note: These routines work equally well, whether you are 
using regular controls or the new extended controls. 



Drawing the Member 

Hie List Manager will draw your list members for you. 
provided they contain nothing but text in either pString 
or cString format. For many lists, this is acceptable; 
however, if you want something a little fancier, you will 
need to provide a custom draw routine. 

The procedure I use in CustomDraw consists of: 

1) my standard opening; 

2) an attempt to skip drawing if the member is clipped; 

3) erasing and redrawing the member; 

4) adding selection marking; 

5) and my standard closing. 

The attempt to skip drawing a member (step 2) is 
adapted from GS Tech Note #74. It is designed primar- 
ily for scrolling, when the List Manager tries to redraw 
all visible members. In reality, all members may not 
need to be redrawn. The rect of the member to be drawn 
is passed to the draw routine, and if no part of that rect 
lies within the clip rect, you may skip drawing that 
member. This speed up trick is not needed on a small 
list like this sample, but, a list that has a complex draw 
routine or a lot of members visible would benefit from it. 



The heart of this drawing routine is the code that 
actually puts something on the screen. The subroutine, 
DrawMember, shows one way of putting out something 
other than plain text. For this example, I use a combi- 
nation of an icon, a text string, and a column of 
numbers. 

The trickiest part of putting an icon in the list is getting 
the bits in the displayMode word correct. Since the 
easiest way to show a selected (highlighted) member is 
to invert it, you must take both the normal and inverted 
image into consideration when you decide the mode for 
_DrawIcon. With black and white icons, I have had the 
best success with a displayMode of $0001 and the icon 
mask identical to the image. My example uses color and 
because of the way my mask and mode are setup, the 
inverted icon reverses all colors. My advice is to experi- 
ment with different combinations of masks and modes. 

By the way, if you want to use larger icons, it's a simple 
matter of using a larger value for listMemH eight. While 
you Ye at it, there's no reason to prevent you from 
drawing multiple lines of text in the member, or using 
a different font, or anything else that feels right. 

The only other thing worth mentioning in DrawMember 
is the method I use to get a column of numbers to line 
up. Since all numbers take the same width, it would 
seem that nothing special is needed to align them; 
however, the space character is narrower than num- 
bers and if you use the Integer Math tool set, you will 
inevitably get numbers with leading spaces. The easiest 
way IVe found to right-justify the column of digits is to 
make all characters temporarily the same width with 
_SetFontFlags. Be sure to retum to normal (propor- 
tional) afterward, or all following members will be drawn 
in this style. This brings up an important point: the List 
Manager does not save and restore any GrafPort stuff 
for you, so be careful what you change whenyou do your 
drawing. 

The only thing needed to complete the custom drawing 



is to display the member with the proper highlighting. 
While this could be done during the actual drawing 
phase, I chose to apply it afterward. Information about 
whether the member should be shown inverted, 
dimmed or normal is contained in the upper three bits 
of the memFlag byte (see the comments in the listing 
under the label DrawSelect). 



Sorting a List in Any Order 

The _SortList call will arrange your list in ascending 
alphabetical order. As the List Manager knows nothing 
about what's in your data structure, it simply starts 
with the first byte and progresses through the data until 
it either reaches a difference or the end of the data. In 
fact, your only choice when using this feature is 
whether to use pStrings or cStrings (indicated in bit 
of listType). 

But with a custom compare routine, you can arrange 
your list in forward or reverse order using any part of a 
member's data. Don't be concemed with the sort algo- 
rithm that the List Manager uses ; all you need to provide 
is a comparison routine that tells the List Manager 
which of two members you want to appear first. The List 
Manager passes you the pointers to the two members to 
compare and expects your decision to be returned in the 
carry flag. The List Manager then arranges the pointers 
in the array so they are in the order you want; when it 
comes time to draw the list, the draw routine is passed 
each pointer in tum from this array. 

In the routine CustomCompare, I show a method of 
sorting on either of two fields in the data structure. After 
the standard opening, I convert (or dereference) the 
addresses that the List Manager passes into actual 
addresses of the member's data. Since I don't need the 
pointer that was passed after conversion, I recycle the 
direct page space by dereferencing it 'in place'. 

The CompareSize routine simply indexes into the data 
structure and compares the integers. If they are differ- 
ent, the carry is set for the List Manager. If they are the 
same, I set it up to have the name field be the tie breaker. 

The CompareName routine is fairly straightforward 
string manipulation. The only non-obvious part is the 
length checking at the top of the loop; this is done to 
ensure that when all of a short string matches the 
beginning of a longer string, the shorter string comes 
first. 



Reversing the sort order is trivial: just flip-flop the state 
of the carry bit. 



The Double Click Short Cut 

By convention, double clicking may be used as a short 
cut. When used with a list control, the short cut might 
tj^ically be linked to a default button. For example, in 
the tool call _SFGetFile, double clicking one of the file 
names in the list would produce the same effect as 
single clicking followed by a click in the Open button. 
While double- (and triple-) click information is now 
returned in the extended TaskMaster record, intro- 
duced with System Disk 5.0, my code is useful if your 
application isn't able to use TaskMaster. 

For a double click to exist, two consecutive clicks must 
happen within the specified time limit and be close 
enough in location to be considered in the same item. 

Detecting a double click begins with a mouse down 
event in the window. After tracking the click and making 
sure it's a hit in the list, the routine Doubleclick takes 
over. As the user may change the double click interval 
at any time (via the control panel), I start off by getting 
the latest setting. I divide the X coordinate by the height 
of a list line to get the number of the line where the click 
happened. I calculate the interval time between this and 
the previous click by using the system tick count from 
the Event record. Now, armed with the time and location 
information, I can determine whether this is a good 
double click. The check against ListCount traps clicks 
in the empty part of the list when there are fewer 
members than the maximum that can be displayed. 

After calling the short cut routine (which I leave up to 
you), I clear the previous click time (forcing an impos- 
sibly large interval) to prevent the very next click from 
successfully falling through the routine again. 



*====== ===^'== ====■======================================= ==^^ 

* Some list support routines * 

* ★ 

* Copyright 1990 by Ariel Publishing * 

* and Steve Stephenson. Some rights reserved. * 

* s=s=s==z===== ======== ============================ = ====:========== =====.s 

use 1/tool . equates/el 6 . event 
use 1/tool . equates/el 6 . window 

WindowPtr ext /owning window 



Event 



ext 



listView « 

listMemHeight 

ITop 

Li St Re cord 
:top dw 
:left dw 
: btm dw 
: rt dw 
Li St Count 

dw 

dw 

dw 

dw 

adrl 

adrl 

dw 

dw 

adrl 

adrl 

adrl 



5 

« 10 
10 



; event record 



;max # viewable 

/height of one 

; where to draw list 



ITop 
10 

listView* listMemHeight+2+lTop 
300 

3 ;total # in list 

listView ;# viewable 

%10 ;pString, single 

1 /start #1 

;list ctl handle 

CustomDraw /draw routine 

listMemHeight /member height 

5 /ptr array size 

ListPointers /ptr array 

7 77 /refcon 

/color 



* Uses speedup routine from GS Tech Note #74 
CustomDraw 

phb / save B 

phk /reset B 

plb 

phd /save D 

tsc /reset D 

ted 

* what the dpage-in-stack looks like: 





dum 


1 


d 


ds 


2 


b 


ds 


1 


rtl 


ds 


3 



clip: rect 
theEntry 
clipHandle 
listHandle adrl 
memberPtr adrl 
rectPtr adrl 
dend 



/ stk ptr 
/ saved D 
/saved B 

/caller's rtn addr 
/ptr to clip Rect 
/addr or item data 
/Clip Rgn handle 
/ctl handle 
/ptr to item 
/ptr to item's Rect 



-'GetClipHandle /to clip region 
PullLong clipHandle 



Idy 
Ida 
tax 
Ida 
sta 
stx 



#2 /deref handle 

[ cl ipHandle ] , y 

[clipHandle] 
clip: rect 
clip: rect+2 



* is this member' s top below clip bottom? 

Ida [rectPtr] 
dec 

Idy #region+bottom 
cmp [clip: rect ], y 

bcs NoDraw ; yes, not visible 

* is this member' s bottom above clip top? 

Idy #bottom 

Ida [rectPtr] , y 
inc 

Idy #region+top 

cmp [clip: rect ], y 

bcc NoDraw / yes, not visible 

--EraseRect rectPtr /visible, clr old 



Ida 
sta 
Idy 
Ida 
sta 

Idy 
Ida 
sta 
iny 
iny 
Ida 
sta 

jsr 



[memberPtr] /deref the data 
theEntry 
#2 

[memberPtr] , y 
theEntry +2 

#left /get Rect It & btm 

[rectPtr] ,y 
membe r Re ct Le ft 



[rectPtr],y /btm 
membe rRect Btm 

DrawMember 



DrawSelect 

* now fix it's selected appearance (as req) 

Idy #4 

Ida [memberPtr ], y /selected byte 
and #%1110_0000 /only valid bits: 

* xxxO^OOOO List Mgr' s selection bits 

* I I I l=inactive (dimmed, can't select) 

* I I l=disabled (dimmed, selectable) 

* I l=selected (inverted, if enabled) 



* 000 « active & enabled, but not selected 

beq DrawDone / leave normal 

* 100 - active & enabled, and selected? 

cmp #%1000_0000 

bne DrawDim / no, then dim it 
-InvertRect rectPtr /yes, highlight 
bra DrawDone 

* 110, 010, 001, Oil = dim 
DrawDim 

-SetPenMask #DimMask 
--EraseRect rectPtr 
-SetPenMask #NormMask 

NoDraw 



w^j, mm 



DrawDone 

pld /restore D 

* pull B & the RTL addr off temporarily 

plx ; B & rtl bnk 

ply ; rtl addr 

* pop the stuff that was passed to us 

pla ; (listHandle) 

pla 

pla ; (memberPtr) 

pla 

pla ; (rectPtr) 

pla 

* now put the B & RTL addr back onto stk 

phy ; rtl addr 

phx ; rtl bnk & B 

* and exit to caller 

plb /restore B 

rtl ;back to List Mgr 



memberRectLeft dw 
memberRectBtm dw 

DimMask hex 55, AA, 55, AA, 55, AA, 55, AA 
NormMask hex FF, FF, FF, FF, FF, FF, FF, FF 



* Completely (re) draw this member/item 
DrawMember 

falcons ;icon addr bank 
[theEntry] ; first is icon # 



pea 
Ida 
asl 
tax 



;make index 



Ida 


Icons, X /lookup icon addr 




da 


Disk : ram 


pha 






da 


Disk :hard 


pea 


%0000_1111_0000_0000 ;mode 




da 


Disk : 90mm 


Ida 


memberRectLeft 








clc 




★.. - 






adc 


#4 ;move in some 


Disk: ram 






pha 






dw 


$8000 


Ida 


membe rRectBtm 




dw 


8*12/2 


sec 


/center icon 




dw 


8 


sbc 


#8+1 




dw 


12 


pha 






hex 


ffffOOOOOOOf 


_DrawIcon 




hex 


ff OObbbbbbOf 








hex 


fObObObObOOf 


Ida 


#34 /tab over for text 




hex 


fObbbbbbbbOf 


jsr 


TabTo 




hex 


fObObObObOOf 








hex 


fObbbbbbbbOf 


Ida 


theEntry+2 




hex 


f0000066660f 


pha 






hex 


ffffff 66660f 


Ida 


theEntry 


:mask 






clc 






hex 


ffffffffffff 


adc 


#4 /offset to string 




hex 


ffffffffffff 


pha 






hex 


ffffffffffff 


^Drawstring 




hex 


ffffffffffff 








hex 


ffffffffffff 


Idy 


#2 /offset to size 




hex 


ffffffffffff 



Ida [theEntry],y 
pha /the integer 

pushlong #sizeStr+l /result str 
pushword #5 /max 5 digits 

pushword #0 /unsigned 
_Int2Dec /convert to ascii 

Ida #180 /move to size col 

jsr TabTo 

-SetFontFlags #2 / set tabular mode 

-Drawstring #sizeStr 

'-SetFontFlags #0 /reset proportional 

rts 



sizeStr str 



^OOOOOk' 



* Move pen to draw text. Pass offset in Acc . 
TabTo 

/total from left 
membe rRe ct Le ft 



clc 
adc 
pha 
Ida 
dec 
dec 
pha 

_MoveTo 
rts 



memberRectBtm 

/move up 2 for 
/ font base line 



Icons 



color 

size of icon 

# lines down 

# nibbles accross 
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hex ffffffffffff 



Disk : 90mm 



:mask 



dw $8000 /color 

dw 8*12/2 

dw 8 

dw 12 

hex fffOOOOOOOff 

hex ffOfOfffOfOf 

hex ffOfOfffOfOf 

hex ffOfOOOOOfOf 

hex ffOfffffffOf 

hex ffOffOOOOfOf 

hex ff00f0330f0f 

hex fffOOOOOOOff 

hex ffffffffffff 

hex ffffffffffff 

hex ffffffffffff 

hex ffffffffffff 

hex ffffffffffff 

hex ffffffffffff 

hex ffffffffffff 

hex ffffffffffff 



CustomCompare 

phb ; save B 

phk /reset B 

plb 

phd ; save D 

tsc /reset D 

ted 



hex 


ffffffffffff 




dum 


1 / stk ptr 


★ .- 




:d 


ds 


2 / saved D 


Disk :hard 




:b 


ds 


1 / saved B 


dw 


$8000 /color 


:rtl 


ds 


3 /caller's rtn addr 


dw 


8*12/2 


member A 


adrl 


/ptr to A 


dw 


8 


members 


adrl 


/ptr to B 


dw 


12 




dend 




hex 


ffffffffffff 








hex 


ffOOOOOOOOff 




Idy 


#2 /deref ptr 


hex 


f0333333330f 




Ida 


[memberA] / to addr 


hex 


f0333334430f 




tax 




hex 


f 0333333330f 




Ida 


[memberA] , y 


hex 


f 0333333330f 




sta 


memberA+2 , s 


hex 


ffOOOOOOOOff 




txa 




hex 


ffffffffffff 




sta 


memberA, s 


:mask 






Ida 


[memberB] 


hex 


ffffffffffff 




tax 




hex 


ffffffffffff 




Ida 


[memberB] , y 


hex 


ffffffffffff 




sta 


memberB+2, s 


hex 


ffffffffffff 




txa 




hex 


ffffffffffff 




sta 


memberB, s 


hex 


ffffffffffff 








hex 


ffffffffffff 




Ida 


CompareMethod /which? 


hex 


ffffffffffff 




bne 


CompareName 



* what the dpage-in-stack looks like: 



Compare Size 
Idy 
Ida 
cmp 
bne 



#2 /compare sizes 

[memberA]', y 
[ membe rB ] , y 

CompareDone /if sizes same, 
/then use name 



CompareName 

shortax 



: loop 



Idy 
Ida 
sta 
Ida 
sta 

tya 
sec 
sbc 
iny 
cmp 
beq 
cmp 
beq 
Ida 
cmp 
beq 
bra 

sec 
bra 



#4 

[memberA] , y 
lenA 

[memberB] , y 
lenB 



#4 

lenB 
: sec 
lenA 
: clc 

[memberA] , y 
[memberB] , y 
: loop 
:done 



/get str lengths 



shorter first 



/next char 



/B first 



: done 
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: clc 
: done 



clc 

longax 



;A first 



CompareDone 

pld /restore D 

* pull B & the RTL addr off temporarily 

plx ; B & rtl bnk 

ply ; rtl addr 

* pop the stuff that was passed to us 

pla ; (memberA) 

pla 

pla ; (memberB) 

pla 

* now put the B & RTL addr back onto stk 

; rtl addr 



phy 
phx 

* and exit to caller 
plb 
rtl 

lenA dw 

lenB dw 

CompareMethod dw 



inContent ent 
pha 



; rtl bnk & B 

; restore B 

;back to List Mgr 



noHit 



Trackit 



; spc 

pushlong #theControl 
pushlong Event+owhere 
pushlong WindowPtr 
__FindControl 

pla ;part hit 

bne Trackit 

;none 

rts 



pha ; spc 

pushlong Event+owhere 

pushlong #-1 ;use action procs 

pushlong theControl 

_TrackControl 

pla ; in same part? 

beq noHit ; no, strayed 

AfterTrack 

-GetCtlRefCon theControl 

pla ; item number 

ply ; throw away 



cmp 
bne 



#777 
noHit 



;in the list? 



Doubleclick 

--GetDblTime 
pulllong DblTime 



rget interval 



Ida Event +owhere+2 

sta thePoint+2 

Ida Event+owhere 

sta thePoint 

-GlobalToLocal #thePoint 



Idx 
Ida 
clc 
sbc 
bmi 

: divide sbc 
bcc 

inx 
bra 

: got it 

stx 

Ida 
tax 
sec 
sbc 
sta 
Ida 
tay 
sbc 
sta 

stx 
sty 

Idx 
cpx 
stx 
bne 

cpx 
bcs 

Ida 
sec 
sbc 
Ida 
sbc 
bcc 

jsr 
stz 
stz 
bra 



#0 

thePoint 

ListRecord+top 
: gotit 

#listMemHeight 
: gotit 

: divide 

currline 

Event+owhen /current ^when' 



prevtime ;- previous ^when' 
interval ;= time between 
Event+owhen +2 



prevtime+2 
interval+2 

prevtime 
prevtime+2 

currline 
prevline 
prevline 
Done 

ListCount 
Done 

DblTime 

interval 
DblTime+2 
interval+2 
Done 

Doltem 
prevtime 
prevtime+2 
Done 



; reset for 
; next time 

;in the same line? 



; nope . 

;in range? 
; nope . 

/quick enough? 



nope , 



/prevent response 
/ to triple click 



Doltem 

* ...insert your ^ short cut' routine here 

* (to be called on double-click) 

Done 



rts 

currline dw 
prevline dw 
thePoint dw 0,0 
theControl adrl 
DblTime adrl 
prevtime adrl 
interval adrl 
ThisWindow adrl 



* Array of pointers somewhere in memory 



ListPointers 






adrl 


iteml ;ptr to item 




dfb 


;List Mgr' s byte 




adrl 


item2 




dfb 







adrl 


items 


•k 


dfb 





* Individual 


item data somewhere in memory 


ListMembers 




iteml 








dw 


1 ;my icon # 




dw 


$8000 ;size (in k) 




str 


^Hard Disk' 


item2 








dw 


2 




dw 


800 




str 


^3.5" Disk' 


items 








dw 







dw 


256 




str 


'Ram Disk' 









i 



Soft Thoughts: 
Why I Wrote Super- 
Patch In BASIC 

by John Link 



John Link is the author of SuperPatch, the popular 
AppleWorks patch utility published by Q Labs. Section 
4 of his manual for SuperPatch is entitled "Some 
Thoughts'*. This article, reprinted from that section of 
the manual with John's permission and slightly edited 
to fit this magazine's format, explains why he wrote 
SuperPatch 6. 1 in plain old Applesoft BASIC rather 
than assembly language.) 



At one time, in a fit of masochism, I had decided to 
rewrite SuperPatch in machine language. Machine 
language is not only macho, it is also more compact 
than BASIC. As I added more patches to SuperPatch. 
the compactness of machine language became more 
and more appealing. But really, what appealed to me 
most was the "advancedness" of machine language. 
You haven't arrived as a programmer until you write 
something in ML, just like you cannot be accepted in 
certain social circles until you say things in French. If 
I had stuck with my decision, SuperPatch would be 
much smaller than it is now. Obviously one reason for 
the h)^othetical compactness would be the compact- 
ness of ML itself. Another reason would be that much 
of my time would have been devoted to writing code that 
could handle all the things that BASIC does for Super- 
Patch, Instead of developing new patches. Fewer 
patches means less code, no matter what language is 
used. 

What came from this excursion into "advancedness" is 
the realization that BASIC is as advanced as any other 
computer language. The "B" in BASIC could easily 
stand for "Best" instead of "Beginner's" in its full name: 
Beginner's/Best All-purpose Symbolic Instruction 
Code. BASIC is more "aD-purpose" than any other 
language for the Apple II, and seems perfectly suited to 
a program like SuperPatch. What most SuperPatchers 
want is a reliable and easily understood method of 
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applying their modifications to AppleWorks. BASIC is 
very reliable, and the time I might have spent "reinvent- 
ing the wheel" went into making the interface easier to 
understand and the program more thorough in its 
ability to cope with all the possible software and hard- 
ware configurations used by AppleWorkers. My inter- 
face contains few "bells and whistles." You have to press 
letter keys instead of moving an inverse menu bar up 
and down the lists of patches. Inverse menu bars can 
be programmed in BASIC, but, in BASIC, they are too 
sluggish for my taste, and they eat up memory and code 
rapidly. But, thanks to easily accessed BASIC com- 
mands, SuperPatch is thorough in its examination of 
your AppleWorks disk, which seems far more impor- 
tant. While machine language executes much faster 
than BASIC, the slowest part of SuperPatch is the 
examination of your files to determinne the status of the 
patch areas. ML would not accelerate this process to 



any noticeable extent. 

Using BASIC opens SuperPatch itself to examination. 
Those of you who are interested can easily follow the 
logic of the program by simply listing the code. You can 
also customize SP to suit yourself, if you want. Or, as 
some have done, you can develop patches to Super- 
Patch. Most of the key areas contain REM statements 
to guide those who have an interest in programming. 
This kind of openness Is simply not possible with 
machine language, unless you do what Robert Lissner, 
the creator of AppleWorks, did, and publish extensive 
notes. Even then, BASIC, because of its nature as an 
interpreted language, remains more open than any 
other, and therefore more subject to the user's modifi- 
cation. 

[SuperPatch 6. 1 costs $39.95 and is available from Q 
Labs, 1066 Maryland, Detroit, MI 48230, (313) 331- 
0941.] 



Just Like the Big Boys 

AppleWorks-Style Line Input 

by Tom Hoover 



It seems like whenever I write an assembly language 
program, there's always a need for some type of "string 
input** routine. For a long time, I wrote a separate 
"custom" routine for each program, which was, obvi- 
ously, an inefficient way to program. Meanwhile, I had 
fallen in love with Robert Lissner*s AppleWorks input 
routine, which features intuitive command keys and a 
default input string. I finally got around to writing a 
similar routine of my own that could be linked into any 
program that I was writing. I present it to all of you in 
the hope it can save someone else some work. 

The GetStr routine supports the same commands as the 
AppleWorks line editor. Although you can easily change 
them if you don't like them, I suggest you keep them for 
purposes of standardization. The commands are: 



OA-E or Control-E 
OA-Y or Control-Y 
Left Arrow 
Right Arrow 
OA-Left Arrow 
OA-Right Arrow 



toggle between insrt /ovrstrke cursors 
delete from cursor to end of line 
move the cursor one space to the left 
move the cursor 1 space to right 
move to the beginning of the input lin< 
move to the end of the input line 



OA-Delete delete the character under the cursor 

Delete delete the character preceding the cursor 

Escape restore the default string 

Return accept the entire input line 

GetStr is designed for use with the 80-column screen 
and does not support wrap-around of the input line, 
limiting you to an eighty-character input line (or less, 
depending on screen placement). I haven't found either 
of these limitations a problem in my applications, but 
the routine could be enhanced to eliminate them. 

To use the GetStr routine, your program needs to do 
the following: 

1. Place the "default" input string at InBuflFer ($200) 
in Pascal string format (with a leading length byte). If 
you wish to have a "blank" default string, store a "0" 
at InBuffer. 

2. Set your desired horizontal and vertical cursor 
position (OurCH, CV). 

S. Place the maximum length of the input string in the 
X register. 

4. Place the desired prompt character into the Accumu- 



w^w, mm 



lator. 

5. JSR Get St r. The prompt character will be printed at 
the current cursor co-ordinates (OurCH, CV). followed 
immediately by the "default" string (if any), and allow 
the user to edit the string. 

6. The routine will retum the string at InBuffer, with a 
leading length byte. 

For an example of how to call GetStr. see the 
GetStr.Demo program listing. 

GetStr is well commented, so you shouldn't have any 
problem figuring it out, but here's a rundown on how it 
works. 

Before entering the main loop, GetStr first displays the 
default input string on the screen. It then calls GetKey 
repeatedly until a Retum keypress is detected. GetKey 
calls another routine called KeyHandler, which actually 
does most of the routine's work. 

GetKey (along with FlashDelay) provides the flashing 
insert or overstrike cursor, and performs the task of 
getting a keystroke from the user. This keystroke is 
then passed to KeyHandler. You can change the flash 
rate of the cursor by changing the variable cFlash; 
larger numbers result in slower flash rates. You can 
also change the default cursor type by changing the 
variable 'cCursor'; set the high bit for insert, or clear it 
for overstrike. 

KeyHandler handles each keystroke by calling the 
appropriate command routine or by storing it in the 
buffer and displaying it on the screen. KeyHandler uses 
two lookup tables, one containing the value of the key 
associated with a command, the other containing the 
address (less one) of the routine that handles that 
command. The address of the command is pushed onto 
the stack and a "funny jump" is performed with an RTS, 
an old 6502 trick that goes back to the original Apple II 
Monitor. 

I've also included two linker fQes (one for Merlin 8 and 
one for Merlin 16 and 16+) that demonstrate how to link 
GetStr into your program, which you'll need to do to run 
the GetStr.Demo program. The Merlin 16 linker file 
handles the assembly and linking of both GetStr and 
GetStr.Demo. The Merlin 8 linker file must be loaded 
into Merlin, assembled, and saved to disk as LINK. You 
must then assemble GetStr and GetStr.Demo, then 
type LINK $2000 "LINK" from the Merlin 8 command 
mode. After saving the object file, you can change it to 



a 9YS file. Notice that Merlin 16 makes the entire 
process much simpler. 

I hope you find GetStr useful. With it, you can easily 
implement part of the standard AppleWorks user inter- 
face in your programs. 

Listing 1 

2 * 

3 * GetStr Input Rtn w/ AppleWorks" Cmd Keys 

4 * 

5 * Copyright 1990 by Tom Hoover 

6 * All rights reserved 

7 * 

8 * You may use this rtn in your programs, 

9 * as long as appropriate credit is given. 

10 * 

11 * This rtn inspired by ^^command line" editor 

12 * in ApplWk S.I've never found an input rtn i 

13 * any other program that I liked as much as 

14 * the one in AWks; so, I wrote one 

15 * w/ a similar cmd set that I could include 

16 * in any program. Thanks, Robert! 

17 * 

19 

20 rel ; relocatable file 

21 dsk getstr.L 

22 xc off /remove if not using 

Merlin 16+ 

23 



24 




1st 


off 


25 




tr 


on 


26 




tr 


adr 


27 








28 


CV 




$25 


29 


BASL 




$28 


30 


OurCH 




$57b 


31 


InBuffer 




$200 


32 


InBuf fer2 




$280 


33 


Key 




$c000 


34 


Strobe 




$c010 


35 


Pagel 




$c054 


36 


Page2 




$c055 


37 


OAKey 




$c061 


38 


TabV 




$fb5b 


39 


COut 




$fded 



40 
41 
42 



43 
44 



* To use. 
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45 
46 
47 
48 

49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 



1 . X « ma len of the desired input string 

2. a - desired prompt character 

3. If you want a ^^default" input str, place 
at InBuffer ($200) in Pscal str form (w/ 
a length byte) . If you want a ^^blank" 
default string, store a ^^0" at InBuffer. 
4 . The prompt will print at the current 
cursor (OurCH,CV), followed immediately 
by the ^Mefault" string (if any) . 
5. You can use the following at the prompt: 

oa-e -toggl between insrt/ovrstrike cursors 
ctrl-e -ditto 

oa-y -delete from cursor to end of line 
ctrl-y -ditto 

left -move cursor one space to the left 
right -move cursor one space to the right 
oa-left -move to the beg. of the input line 
oa-right-move to the end of the input line 
oa-DEL -delete the char under the cursor 
DEL -delete the char preceeding cursor 

ESC -restore the ^Mefault" string 

RTN -accept the entire input line 

6. The sub will return with the string at 
InBuffer, with a prefixed length byte. 



77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 



GetStr - the "Main" rtn. Call with 

X = the max input len, A = the desired 
cursor char. The prompt will show at the 
current cursor position (OurCH,CV). This 
assumes the 80 column screen and it does 
not support ^Vrapping-around" the screen 
edge, so placement of prompt is important 
long str. A & X are trashed, Y is saved 



GetStr 



ent 
sty 
stx 

jsr 
inc 

Ida 
sta 

Idx 
Ida 



yTemp ; save Y in a temp var 
MaxLength ;max len of input 

PutChar ;Put prompt on screen 
OurCH ;inc cursor to nxt pos 



OurCH 
chOrig 



; save cursor coords 



: loop 

string to InBuffer2 
99 sta 



InBuffer 

InBuffer, X ;move ^Mefault" 
InBuffer2,x ; easily 2 restor 



100 




dex 


101 




bpl 


102 






103 




jsr 


104 






105 


:keyloop 


jsr 


106 




cmp 


107 




be a 


108 






109 




jsr 


110 




jmp 


111 






112 


: done 


Idy 


113 




rts 


114 






115 






116 







;when user hits E 



:loop 



: done 



rkeyloop 



;is it a return? 
;if yes, accept 



/restore Y regist 



117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 

151 
152 
153 
154 



* KeyHandler 

* performs 

KeyHandler 

pha 

cmp 
bge 

cmp 
bit 



- interprets each keystroke, a 
accordingly 



; save char on stack 

#$7b ;is it an ^^open-appl€ 
: noConvert ; nope 

#$60 ;is it ^^lower-case 

: noConvert ; nope 



and #% 11 01 11 11 ; convert to upper 



: noConvert 

sta 
Idx 

rkeyloop inx 
Ida 
beq 

cmp 
bne 

pla 



txa 
asl 
tax 

Ida 

pha 
Ida 
pha 
rts 



Char ; save char 

#$ff /initialize loop 



:KeyTable, X 

inoCmd /end of table 

Char /found it yet? 

: key loop /nope, so try aga 

/it's a command, so clean up 
/ stack 

/transfer offset to A 
/double it 

/and transfer back to 

:KeyAddrs+l , X /do indirect jir 
by pushing 

/the address on the sta 
:KeyAddrs, x 

/and then doing an 



RTS 








211 




inx 




155 












&> L.OI 


a.XIOUJL JLc5X / Jv / jpu U XL. Xll JL'UXXCSX 


156 








213 








157 


:KeyTable ;our routine looks in this table... 


214 




i sr 


PutChar ;put it on screen 


158 




db 


^E' ;oa-E 


215 




inc 


OurCH 


159 




db 


$9f&"e" ;ctrl-E 


216 




bne 


•99 ? alwavs 


160 




db 


^Y' ;oa-Y 


217 








161 




db 


$9f&"y" ;ctrl-Y 


218 








162 




db 


$8 ;oa-left 


219 




cpx 




163 




db 


$15 ;oa- right 






bge 




164 




db 


$88 ;left 


221 

£4* J. 






165 




db 


$95 ; right 


222 




inx 




166 




db 


$7f ;oa-DEL 


223 




stx 


TnRii f f p»r 

jL X IXJlmA X. X. w X. 


167 




db 


$ff ;DELete 








XxlOUXXCSX f A. f XU Xxi JLfUXXtSX 


168 




db 


$9b ; Escape 


225 








169 




db 


#0 ;end of table 


226 




i sr 


PutChar /put it on screen 


170 








227 




inc 


OurCH 


171 


:KeyAddrs ;to 


find the address in this table 










172 




da 


:do_oaE-l ;oa-E 


229 








173 




da 


:do_oaE-l ;ctrl-E 


230 


; insert 






174 




da 


: do_oaY~l ; oa-Y 


231 




inx 




175 




da 


:do_oaY-l ;ctrl-Y 


232 




stx 


Temp ; current position 


176 




da 


: do_oaLef t- 1 ; oa-lef t 


233 








177 




da 


:do_oaRight-l ;oa-right 


234 




Idx 


Ma xL en gt h 


178 




da 


:do_Left-l ;left 


235 




cpx 


TnBuffer 'can we insrt anothe 

^XXXi^Wl ^ ^ ^7X» / \<GiXA -kXlOX-w GlXXx^^^XXW 


179 




da 


:do Right-1 /right 


236 




beq 


:99 ;nope, at MaxLength 


180 




da 


: do__oaDEL-l ; oa-DELete 


237 








181 




da 


: do_DEL-l ; DELete 


238 




pha 




182 




da 


:do__ESC-l ;ESC 


239 








183 








240 




Ida 


InBuffer 


184 








241 




tay 




185 


* 






242 




sec 




186 








243 




sbc 


Temp /current position 


187 


: noCmd 






244 




tax 




188 




pla 


;get original character 


245 


* move 


everything over, so that we 


189 




cmp 


#$aO 


246 


:2 


Ida 


InBuffer, y /can insert 


190 




bit 


:99 ;less than a , so it's a 


247 




sta 


InBuffer+l,y /our character 


191 






;ctrl char, and we don't 


248 




dey 




192 






;want it 


249 




dex 




193 








250 




bpl 


:2 


194 




pha 




251 








195 








252 




inc 


InBuffer 


196 




Ida 


OurCH ;curr pos minus original 


253 








197 




sec 


;pos = current position 


254 




pla 




198 




sbc 


chOrig; in string 


255 




Idx 


Temp 


199 




tax 




256 




sta 


InBuffer, X /put it in buffer 


200 








257 








201 




pla 




258 




jsr 


PrintBuffer /reprint input st 


202 








259 




inc 


OurCH 


203 




cpx 


InBuffer ;are we at the end? 


260 








204 




beq 


: append ;yes, append next char 


261 








205 








262 


:99 


rts 




206 








263 








207 




bit 


cCursor ;ck insrt/ovrstrk mode 


264 


* 






208 




bmi 


: insert 


265 








209 








266 


: do__oaE 






210 


:over 






267 




Ida 


cCursor 
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268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 



eor 
sta 
rts 



♦tlOOOOOOO /invert hi -bit 
cCursor 



:do oaY 



Ida 
sec 
sbc 
sta 
jsr 
rts 



:do_Left 

Ida 
cmp 
beq 
dec 

:done__Left 

rts 



:do oaDEL 



OurCH 
chOrig 

InBuffer /truncate at curr pos 
PrintBuffer ; print entire str 



:do_oaRight 
Ida 
clc 
adc 
sta 
rts 



InBuffer ;goto end of input str 

chOrig 
OurCH 



:do_oaLeft 

Ida 
sta 
rts 



chOrig 
OurCH 



/beginning of input str 



:do_Right 

Ida 
sec 
sbc 
cmp 
beq 
inc 

: done__Right 
rts 



OurCH ; crsr to the right by one 
; character 

chOrig 
InBuffer 
: done_Right 
OurCH 



OurCH ;move cursor to left one 
chOrig /character 
: done_Lef t 
OurCH 



325 




Ida 


OurCH 


326 




sec 




327 




sbc 


chOrig 


328 




cmp 


InBuffer /end of the string 


329 




beq 


: don e_oa DEL / yes 


330 




inc 


OurCH 


331 




bne 


: do_DE L / a 1 wa y s 


332 








333 


: done__oaDEL 




334 




rts 




335 








336 


★ 






337 








338 


: do_DEL 






339 




Ida 


OurCH 


340 




sec 




341 




sbc 


chOrig / find curr pos in stri 


342 




tax 




343 








344 




beq 


:done__DEL /no mo chars to dele 


345 








346 




cmp 


InBuffer 


347 




beq 


:1 


348 








349 


: del Loop 


Ida 


InBuffer+l,x /move everything 








over to close 


350 




sta 


InBuffer, X /up the space left 








by the deleted 


351 




inx 


/ character 


352 




cpx 


InBuffer 


353 




bne 


: del Loop 


354 








355 


:1 


dec 


InBuffer 


356 








357 




jsr 


PrintBuffer 


358 




dec 


OurCH 



359 
360 
361 
362 
363 
364 
365 
366 
367 



:done DEL rts 



:do_ESC 

Idx 

lESCloop Ida 



InBuffer2 /restore '"default" 
InBuffer2,x 



368 


sta 


InBuffer, X 


369 


dex 




370 


bpl 


: ESC loop 


371 






372 


Ida 


chOrig 


373 


sta 


OurCH 


374 






375 


jsr 


PrintBuffer 


376 






377 


rts 




378 






379 








380 






435 
436 


* PickChar ^^picks" the char from screen 

* at curr cursor pos, and returns it in ^^A" 








381 


* 




437 






382 


* PrintBuf fer-prints contents of InBuffer, at 


438 


PickChar 




383 


* chOrig. OurCH is preserved. 


439 


Ida 


OurCH ; get horizontal pos 


384 






440 


Isr 




385 


Pr intBuf f er 




441 


tav 


;pick from main or aux me 


386 


Ida 


OurGH ; save curr pos on stack 


442 


bcs 


rmainpage 


387 


pha 




443 






388 


Ida 


chOrig;set OurCH to 1st char of 


444 


sta 


Page2 ; set to aux 


389 


sta 


OurCH ;the input str scrn pos 


445 






390 






446 


: ma in page 




391 


Idx 


InBuf f er 


447 


Ida 


(BASL),y ;PICK the charact 


392 


beg 


! done / nothing to pr^ then done 


448 


sta 


Pagel ; reset to main 


393 


Idx 


#0 


449 






394 






450 


rts 




395 


: loop inx 




451 






396 


Ida 


InBuf fer, x 


452 






397 


1 sr 


COut /print InBuf fer to scrn 


453 






398 






















399 


cpx 


InBuf fer 


454 


★ 




400 


bne 


: loop 


455 


* GetKey-this 


gives flashing crsr, & return 


401 






456 


* a keystroke 


in ^^A" . If char is ^^negative 


402 


: done Ida 


#$ld ; clear EOL 


457 


* (bit 7 set) , 


then OA key was NOT pressed. 


403 


jsr 


COut 


458 


* the char is 


^^positive" (hi~bit clr) , then 


404 






459 


* the open-apple key was pressed. 


405 


pla 




460 






406 


sta 


OurCH /restore curr crsr pos 


461 


GetKey 




407 






4 62 


jsr 


PickChar ;get char under ci 


408 


rts 




463 


sta 


cChar 


409 






464 


and 


#%01111111 ; clear hi -bit 


410 






465 






411 






466 


cmp 


#$40 








« 467 


bit 


: storeit 










412 


★ 




468 






413 


* PutChar - this routine '^puts" char in ^^A" 


469 


cmp 


#$60 


414 


* on the scrn 


at the current cursor position. 


470 


bge 


: storeit 


415 






471 






416 


PutChar 




472 


and #%00111111; remap so prts invers 


417 


pha 


;save char on stack 


473 




/instead of MouseText 


418 






474 






419 


Ida 


OurCH ;get horizontal pos 


475 


: storeit sta 


cOver /store overstrike cui 


420 


Isr 




476 






421 


tay 


;put in main or aux mem? 


477 


: loop bit 


cCursor /insert or overstrik 


422 


bcs 


:mainpage 


478 


bmi 


: insert 


423 






479 






424 


sta 


Page2 ; set to aux 


480 


: over Ida 


cOver 


425 






481 


bne 


iprintit 


426 


rmainpage pla 


;get char from stack 


482 






427 


sta 


(BASL),y ;PUT the character 


483 


: insert Ida 


cinsert 


428 


sta 


Pagel /reset to main 


484 






429 






485 


rprintit jsr 


PutChar /put on the scree 


430 


rts 




486 


jsr 


FlashDelay /wait awhile 


431 






487 


bmi 


: got it 


432 






488 






433 






489 


Ida 


cChar 


434 













w^^^ mm 



jp^(B Si) 



490 




jsr 


PutChar 


1 




491 




jsr 


FlashDelay 


2 


★ 




492 




bpl 


: loop 


3 


* Get St r Input Routine DEMO * 


493 








4 


★ 


★ 


494 


: got it 


bit 


OAKey 


5 


* Copyright 1990 by Tom Hoover * 


495 




bpl 


:99 


6 


* All rights 


reserved * 


496 




and 


#%01111111 ;0A, so clear hi~bit 


7 


★ 


* 


497 








8 




498 


:99 


bit 


Strobe 


9 






499 








10 


rel 


/relocatable file 


500 




pha 


; save it 


11 


dsk 


getstr . demo . L 


501 




Ida 


cChar 


12 


xc 


off /remove if not Merlin 16 


502 




jsr 


PutChar /restore org to scrn 


13 






503 




pla 




14 


1st 


off 


504 








15 


tr 


on 


505 




rts 




16 


tr 


adr 


506 








17 






507 








18 


CV « 


$25 


508 








19 


OaLSxj — 












20 




$200 


509 


* 






21 


InButier = 


510 


* FlashDelay - 


provides delay for the flashing 


22 


InBuf fer2 — 


$280 


511 


* cursor 






23 


Key == 


$cOOO 


512 








24 


Strobe — 


$c010 




FlashDelay 




25 


Pagel = 


$c054 


514 




Idy 


cFlash 


26 


Page2 = 


$c055 


515 




Idx 


#0 


27 


OAKey ~ 


« /n 
9C0d1 


516 








28 


TabV — 


$f b5b 


517 


: keyloop 


Ida 


Key 


29 






518 




bmi 


:99 


30 






519 








31 






520 




dex 




32 






521 




bne 


: keyloop 


33 
34 


★ -E -sa 




522 












523 




dey 




35 


■k 




524 




bne 


: keyloop 


36 






525 








37 






526 


:99 


rts 




38 


xaa 


#1 /turn on 80 column 


527 








39 


jsr 


$c300 


528 








40 






529 






41 


Ida 


#10 /put cursor where we wa 


530 








42 


jsr 


TabV 


531 


* Various storage locations 


43 


Ida 


#10 


532 








44 


sta 


OurCH 


533 


MaxLength ds 




45 






534 


Char 


ds 




4 6 


Idx 


string /default str to Inbuff 


535 


Temp 


ds 




47 


: loop Ida 


string, X 


536 


yTemp 


ds 




48 


sta 


InBuf fer,x 


537 


chOrig 


ds 




49 


dex 




538 








50 


bpl 


: loop 


539 


cFlash 


db 


#200; adjust the flash rate here 


51 






540 


cinsert 


db 


; insert cursor 


52 


Idx 


#25 /maximum input length 


541 


cOver 


db 


* * ;overstrike cursor (inverse) 


53 


Ida 


#">" /input prompt 


542 


cCursor 


db 


$80 ;insert=$80 overstrike=0 


54 


jsr 


Getstr /call which allows th 


543 


cChar 


ds 


1 ; current char under crsr 


55 
56 
57 




/user to edit the ^^default" inp 
/string, or to enter their own 



58 Ida 

59 jsr 

60 Ida 

61 sta 
62 

63 Idy 

64 iMsgLoop Ida 

65 beq 
66 

67 jsr 

68 iny 

69 bne 
70 

71 :Msg asc 
72 

73 iMsgDone 

74 Idy 

75 Ida 
7 6 sta 
77 

78 
79 
80 
81 

82 tay 

83 :MsgLoop2 Ida 

84 beq 



#15 
TabV 
#10 
OurCH 



#0 

:Msg,y 
:MsgDone 

COut 

:MsgLoop 

''You typed: 



rmove cursor down 5 lines 



r print a msg 



''00 



of o 



InBuf fer 
#0 

InBuf fer+1, y; put 0" at end 
; input string to use as a 
/terminator in the following 
; print routine (I never said 
;this demo routine was elegant) 



InBuf fer+l,y 
:Msg2Done 



85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 



3sr 
iny 
bne 

: Msg2Done 

:keyLoop bit 
bpl 
bit 

jsr 

db 

da 

brk 

quit_parms db 
ds 



string 



str 



COut 



:MsgLoop2 



/print "new" strin 



Key 

: key Loop 
Strobe 

$bfOO 
$65 

quit_parms 



rwait for a key 



; quit 



''This is a test" 



I C I ^ y Wll^^^^^^ I gireat piece of Apple ji^ 

3 I software, but you^rc^ not surcf how to turn all thdf 
hmmmmM hard wwk into cash. You're wary jpf sNf^ware 
and ha^ leen sniibbed by other pub|i$|$rs. 

I let us take a took at your work! We are the publisher 
L Softdisk^and S0llflis|G|;9^^^ mQnthly 
UHHiJsoftware coHections sold by subscription, on 
: newsstands and in bookstores everywhere. We are looking 
fs||op-n lllie s||tw|||| WSb respond pro|i|tl)v payM 



iW€ 



I dre I 



hat h<iiiyou |ot to iose? Nothing! You could see 
your soft$\f||jre pyin^^ arifl ffi^n cold, hqifd ciph. 
$$nd y0or beslsoiftwqre to* NN% 



tb types dJi 
iot vnii put a 

ill 




liiliiiii 



llllllilliil 
tmufits 

EfiUCATIOM 
(KTERTAIKMillT 



w^w, mm 




Hired Guns 



8/16 is providing a free service to all programmers: 
placement of a complimentary "situation wanted" ad. If 
you're available for hire and looking for a programming 
job (from full-time to freelance) , a listing in this directory 
is your ticket to work. The ads are open to both 8 and 
16 bit authors and are limited to 120 words or less. Be 
sure to give your address, phone number, and email 
addresses, and specify how much of a job you're after 
(part-time? full-time? royalty-based? etc). Send it to 
Situation Wanted. Ariel Publishin, Box 398, Pateros, 
WA 98846 or send us E-Mail to R.W.LAMBERT. Note 
that we'll run your ad twice - approximately every other 
month for four months. You'll need to renew your 
request to continue. 

David Ely. 4567 W. 159th St. Lawndale. CA 90260. 213-371-4350 
eves, or leave message. GEnie: [DDELY], AOL: "DaveEly". Experi- 
enced in 8 and 16 bit assembly, C, Forth and BASIC. Available for 
hourly or flat fee contract work on all Apple II platforms (ligs 



^Meet Other Apple iTDevelopersr 

See and hear about the latest Apple II 
hardware & software developments 

Attend Apple's lIgs College 



For moat attendees, mys^kiduded, the 
Developers Conference hosted by A2' 
Central in July 1989 was an experience 
lx>rdering on the religious. 

BUI Kennedy, Technical Bditon InCider 

Without excepthrt, every attendee I have 
talked to feels the first Al-Ce-Mtrsl 
Devdopaa Confenaoe at Avila College in 
Kansas City was a success. The retreat 
atmosphere was a significant factor In 
making It so. 



By popular demand, we're putting 
together another Al'Central Summer 
CoakrenKie (popularly known In developer 
circles as 'KansasPest'). Lilte last year, 
Apple is sending a number of its englneere 
to do semlnare and to run a bug-busting 
room. Unlike last year, Apple is holding a 
Hgs College at Avila the day before our 
conference starts. 

In addition to speakers from Apple, we'll 
have talks and demonstrations by active 
developers willing to show their tricks. 
CccOftehwsU, Technical Editor, Calf .V>P/e There will be talks and exhibits by 

companies that provkle tools to devetopers. 
And there wilt be plenty of time to talk to 
other developere. 



As I look back, t was the most positive 
computer conference I have ever been to 
and I certainly recommend it to anyone 
wmi an irierest in the Apple 11 line. Yes, 1 
had a ffmt time; yes, lleamed a lot; yes, I 
met some outstandbg people; and, yes, I'll 
go back. 

M Hax^n, tdikor. The Road Apple 



You must register by June 1 to get the 
best prices, which begin at $500 and 
include all meals. For more informatk>n, 
call Al-Ceatral at 91M69-6502 (voice), 
915469-6507 (fax) or write PO Box 1 1250, 
Overland Park, KS 66207. Or we're 
A2.CErfrRAL on AppleLink and A2CBrrrRAL| 
onQEnie. 



Al'Central Summer Conference 
Avila College, Kansas City, Mo, 
July 20 St 21, 1990 



preferred). Have experience in writing desktop and classical applica- 
tions in 8 or 1 6 bit environments, hardware and firmware interfacing, 
patching and program maintenance. Will work individually or as a 
part if a group. 

Jeff Holcomb, 1 8250 Marsh Ln, #515, Dallas, Tx 75287. (214) 306- 
0710, leave message. GEnie: [Applied. Eng], AOL: "AE Jeff". I am 
looking for part-time work in my spare time. I prefer 1 6-bit programs 
but I am familiar with 8-bit. Strengths are GS/OS, desktop applica- 
tions, and sound programming. I have also worked with hardware/ 
firmware, desk accessories, CDevs, and inits. 

Tom Hoover, Rt 1 Box 362. Lorena, TX, 76655, 817-752-9731 
(day), 817-666-7605 (night). GEnie: Tom-Hoover; AOL: THoover; 
Pro-Beagle, Pro-APA, or Pro-Carolina: thoover. Interests/strengths 
are 8-bit utility programs, including TimeOut(tm) applications, written 
in assembly language. Looking for "part-time" work only, to be done 
in my spare time. 

Jay Jennings, 14-9125 Robinson #2A, Overland Park, KS, 66212. 
(91 3) 642-5396 late evenings or early mornings. GEnie: [A2.JAY] or 
[PUNKWARE]. Apple lIgs assembly language programmer. Looking 
for short term projects, typically 2-4 weeks. Could be convinced to do 
longer projects in some cases. Familiar with console, modem, and 
network programming, desk accessories, programming utilities, 
data bases, etc. GS/OS only. No DOS 3.3 and no 8-bit (unless the 
money is extremely good and there's a company car involved). 

Jim Lazar, 1109 Niesen Road. Port Washington, Wl 53074. 414- 
284-4838 nights, 414-781-6700 days. AOL: "WinkieJim", GEnie: 
[WINKIEJIM]. Strengths include: GS/OS and ProDOS 8 work, desk- 
top applications, CDAs, NDAs, INITs. Prefer working in 6502 or 
65816 Assembly. Have experience with large and small programs, 
utilities, games, disk copy routines and writing documentation. 
Nibble, inCider and Call-A.P.P.L.E. have published my work. Prefer 
1 6-bit, but will do 8-bit work. Type of work depends on the situation, 
would consider full-time for career move/benefits, otherwise 25 hrs/ 
month (flexible). 

Stephen P. Leplsto, 1 2907 Strathern St., N. Hollywood, CA 91 605, 
81 8-503-2939. GEnie: S.LEPISTO. Available for full-time and part- 
time contract work (flat rate or royalties). Experienced in 6502 to 
65816 assembly, BASIC and C. Can work in these or quickly learn 
new languages and hardware (some experience with UNIX, MS- 
DOS, 8086 assembly). Experience in games, utilities, educational, 
applications. Lots of experience in porting programs to Apples. 
Programmed Hacker II (64k Apple II). Labyrinth (1 28k Apple), Fire- 
power GS and others. Can also write technical articles. 

We'll run M- Z next month. 



Warning! What folbws really IS an advertisement. It just doesn't bok like one (or pay like one - shucks). 

An Advetorial by Ross W. Lambert, Publisher I 

You've heard of "Near Beer"? Well, this is nearly an ad. I coiildn t face writing any more ad 
copy this month. Exclamation points make me tired after a while - all that excitement, if you 
know what I mean. Instead I decided Id give you my thoughts on a few subjects related to 
a couple of our products (so this is still sorta an ad). 

First, the compiled, 8 bit BASICs. We sell Micol Advanced Basic Ile/IIc and well order 
ZBasic for you if you want it ( our price is $54.95 plus shipping from Zedcor). But neither 
environment may be for you. 

Here's why: Just about every compiler Fve seen has been frustratingly slow and unweildly 
unless you are developing on a system larger or faster than the target system. For example, 
if you are creating a program targeted at 64K machines, then the compiled languages are 
a pain to use unless you're using at least a 128K machine for development. Likewise, if 
you're putting together a 128K application, then you'd better have a RAM disk, a fast hard 
drive, and/or a Ilgs. Furthermore, the compilers have so much work to do that we 
categorically do not recommend them forl.O mhz machines. 

The reason for this state of affairs is that language development systems typically have 
three separate parts; an editor, support routines or libraries, and the actual compiler which 
turns your text (source code) into machine code. If you are writing a 128K application using 
a 128K Apple, then the entire development system cannot fit into memory at the same time 
as your program. There is therefore a ton of disk access as segments get swapped in and out. 
This is true for both ZBasic and MAB Ile/IIc, and it can drive you nuts if you are used to 
working in Applesoft. 

A better alternative for those of you with 128K (or less) machines without hard drives or 
RAM disks is the Toolbox Series from Roger Wagner Publishing. These pure assembly 
language extensions to Applesoft give you much of the advantages of the compiled BASICs 
without nearly as much hassle. You simply install the routine you want and then program 
normally in Applesoft (without the disk access horrors of compilation). We are not currently 
selling any RWP products (we're gradually moving out of software sales except for those 
products we develop ourselves), but you can certainly get more information or order directly 
from the good folks in El Cajon ( 619/442-0522). 

Back at the ranch, if you have a RAM disk and a fast system, the compiled languages can 
really provide a high level programming environment with built-in text editors and 
generate fast machine code for maximal use of a smaller target machine. Thus you can 
probably coax a little more overall performance from a compiled BASIC program (or, in the 



V 




case of ZBasic, get three our four times as much numerical accuracy in floating point 
computations). The compilers are really quite nice to program with on a Transwarped GS. 

As for which of the compiled 8 bit BASICs is better, at this point I can only say that "It de- 
pends". For graphics related things (including text generation on the graphics screens), I like 
ZBasic better. For text based programs, I like MAB, the reason being that MAB allows you 
to use more of the 128K for variables. This means more data in memory. As for documen- 
tation quality, the nod definitely goes to ZBasic. As for quality of the text editors, MAB is light 
years ahead of ZBasic. 

You may be wondering why we don't sell a "C" or a Pascal - as I mentioned earlier, we're 
backing away from non-Ariel software sales due to about 15 dozen conflicts of interest. Some 
of our stock is being liquidated by Kevin Thornton at KAT Systems (see their ad on page 14). 
We do hack in C aroimd here (with varying degrees of success). 

We are still selling MAB Ile/IIc and MAB GS, hence you can get in on a really great deal as 
part of our part of our liquidation sale. We wanna move these buggers now, so MAB Ile/IIc 
has been reduced to $59.95 and MAB GS has been slashed to $75. 

We're still selling our homegrown products, of course, and we have several very exciting ad- 
ditional projects well imder way. For now, though, I think the best deal in the house is 
8/16 on Disk. We're talking serious value here, friends. Each and every month you get at 
least 500K of material - everything from the magazine plus a whole lot more. We have both 
an 8 bit and a 16 bit program selector/ file viewer/ graphics viewer to help you navigate (some 
folks are finding these gadgets useful in their own right). And our featured files so far have 
included the actual source code to: Floyd Zink's Binary Library Utility, Bruce Mah's File 
Attribute Zapper II, Parik Rao's Orca/APW developer's utilities, and more other goodies than 
you could imagine (how about multi-tasking on your He?). These disks are fun, educational, 
and useful. You are welcome to lift any routines or libraries you find and plop them right into 
your own projects (with the exception of a very few things where authors have indicated they 
wish otherwise). One year of the disk is $69.95, six months is $39.95, and three months is 
$21. Oh yeah, well sell you two years of the disk for $129.95. Any single disk is $8.00. 

This has got to be one of the strangest ads on record, but if I had to typeset one more breathless 
48 pt headline I wuz gonna puke. 

Give us a call at 509/923-2249, or write to: Mike Rochip, do Ariel PubUshing, Box 398, 
Pateros, WA 98846 
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The Sensational Lasers 

Apple lle/llc Compatible 

4^ $345 



Includes 10 free 
software programs! 



<23^ Now Includes 

COPY II PLUS 




The Laser 128® features full Apple® II compatibility with an internal disk drive, serial, parallel, modem, and 
mouse ports. When you're ready to expand your system, there's an external drive port and expansion slot. The 
Laser 1 28 even includes 1 free software programs! Take advantage of this exceptional value today $345 



Super High Speed Option! 
only $385 

The LASER 128EX has ail the features of the 
LASER 128, plus a triple speed processor and 
memory expansion to 1MB $385.00 

The LASER 128EX/2 has all the features of the 
LASER 128EX, plus MIDI, Clock and Daisy 
Chain Drive Controller $420.00 

DISK DRIVES 

*5.25 LASER/Apple11c $ 99.00 

*5.25 LASER/Applelle $ 99.00 

* 3.50 LASER/Apple 800K $179.00 

* 5.25 LASER Daisy Chain . . . <iaSJ^$109.00 

* 3.50 LASER Daisy Chain . . . <jajj^$179.00 



Save Money by Buying 
a Complete Package! 

THE STAR a LASER 128 Computer with 12" 
Monochrome Monitor and the LASER 145E 
Printer $620.00 

THE SUPERSTAR a LASER 128 Computer with 
14" RGB Color Monitor and the LASER 145E 
Printer $785.00 

ACCESSORIES 

* 12" Monochrome Monitor $ 89.00 

* 14" RGB Color Monitor $249.00 

* LASER 190E Printer $219.00 

* LASER 145E Printer ^!a5a^$189.00 

* Mouse $ 59.00 

* Joystick 3) Button $ 29.00 

* 1200/2400 Baud Modem Auto $129.00 



USA MICRO 



YOUR DIRECT SOURCE FOR APPLE 
AND IBM COMPATIBLE COMPUTERS 



2888 Bluff Street, Suite 257 • Boulder. CO. 80301 Phnnf^ Hrdar^' 1 JiOiUR^-^Of^ 

1 3% ShiDDina . Colorado Residents Add 3% Tax r'nOnC UFQerS . I "OUU-DO^-O^^D 



I Add 3% Shipping • Colorado Residents Add 3% Tax 

Your satisfaction is our guarantee! 



8-5 Mountain Time • No Surcharge on Visa or MasterCard Orders! 

Customer Service 1-800-537-8596 • In Colorado (303) 938-9089 
FAX Orders: 1-303-939-9839 



Laser 128 is a registered trademark of Video Technology Computers, Inc. Apple. Apple lie. Apple lie and Imagewriter are registered trademarks of Apple Computer. Inc. 



http://apple2scans.net 



